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Introduction to Exercises 


These lab exercises supplement the lectures given in the course “|BM 
System/38 Application Programming Workshop” (Course Code 
A2004). Their primary goal is to provide you hands-on System/38 
experience with emphasis on tasks needed to make an entire application 
run. This approach should, hopefully, provide you with ample op- 
portunities for considering the various options available to you, rather 
than requiring you to do a lot of detailed coding in either COBOL or 
RPG II!. Most of the source code you'll need will be provided for you 
to modify or “‘tailor’’ so as to yield your own, unique application- 
solution. Keep in mind, therefore, that the provided source-code solu- 
tions are not intended to be the “‘best’”’ or ‘‘only way’’ — they simply 
permit you to concentrate more fully on the app/ication-so/lution- 
alternatives. 


In the lab this week you are going to create physical and logical files, 

display files, COBOL-OR-RPG III, and CL programs. 

In order to do this, we have adopted the following naming conventions: 
For programs—AALSSI 


Where AA is the application 
Ex: AP—Accounts Payable 
' AR—Accounts Receivable 


BI—Billing 
L is the source language 
Ex: R—RPG Ill D—DFU C—COBOL 
L—CL Q—Query 
SS is the program number; generally corresponds to lab 
step no. 


/ is your team identification (assigned by your instructor) 


Example: APR10A is Accounts Payable program number 10 
for Team A and was written in RPG III 


For Filee-AATDDDDI 


Where AA is the application 
Ex: PA—Payroll 
SA—Sales Analysis 
IN—Inventory 


T is the file type 

Ex: P—Physical Data Base File 
|—Logical Data Base File 
D—Display File 


DDDD is the alphameric file name 

Ex: CUST—Customer Master 
VEND—Vendor File 
TRAN—Transaction File 


/ is your team identification (assigned by your instructor) 


The library APL/B contains the following objects which you will 
use throughout the week, as indicated. 


APC210 
APR210 
APR250 
APR350 


APWSTUDEX 


APWSYSFAM 


— The COBOL sub-program used on day 2. 
— The RPG II! sub-program used on day 2. 
— The Check Writing program used on day 3. 


— The End-of-Year Vendor Master Update 
program used on day 3. 


— This CL program is invoked every time you 
sign on. It sets up your library list, your 
interactive job output queue and invokes the 
programmer menu. 


— This CL program is used by RPG program- 
mers while doing the System Familiarization 
exercise on day 1. 


APWSYSFAM2 — This CL program is used by COBOL program- 


APWOUTQ/ 
APWOUTQ2 


APC30OPRT 


APLSCHVN 


APL VEND 


APPFREF 


APPSRC 


APPVEND 


APWDSPLY/ 
APWDSPL Y2 


ESDFMTS 


QCLSRC 


APWJOBD/ 
APWJOBD2 


mers while doing the System Familiarization 
exercise on day 1. 


— These are output queues used for holding 
your printouts until the instructor routes 
them to a printer. You should find out 
which one your team is assigned to. 


— This is an external printer device file used by 
COBOL programmers on day 3. 


— This logical file is used in the subfile exercise 
on day 4. 


— This logical file is used to validate vendor 
numbers before you enter transactions on 
day 2. 


— This is the Accounts Payable field reference 
file, used throughout the lab to save you from 
keying the standard field definitions used in 
this application. 


— This is the source file, initially loaded with 9 
source members for your use (described 
below), and where you may keep your 
source code. 


— This is the physical Vendor Master File and 
has an arrival sequence access path. It is 
used throughout the lab. 


— These are display device files used in the 
System Familiarization exercise on day 1. 


— This is a display device file used by your 
System Familiarization generated programs. 


— This is a source file needed should you use 
the SDA Menu Generator in an optional 
exercise. 

— These are job descriptions used primarily to 


route your batch printouts to APWOUTO or 
APWOUTQ2 respectively. 





The Source File, APPSAC, in APL/B contains these source members 
for your use as indicated. 


APC200/ — These are the incomplete COBOL and RPG III 
APR200 source modules used on day 2. 

APC210/ — These complete source modules are available 
APR210 for your use on day 2. They have already been 


compiled as is. They are here should you want 
to explore sub-programming further. 


APC300/ — These incomplete source modules are used on 
APR300 day 3 in the batch programming exercise. 
APC400/ — These incomplete source modules are used on 
APR400 day 4 in the subfile exercise. 

APDSRCH — This incomplete display, DDS source module, 


is used on day 4 in the subfile exercise. 


FOR THE REMAINING EXERCISES, SIGN ON TO THE SYSTEM/38 
USING THE PASSWORD GIVEN YOUR TEAM BY THE INSTRUCTOR 


** (Make the entries below, and press enter, every time you sign on:) 


PROGRAMMER MENU 
Select one of the following: 


Design/execute DFU app Capp), , options) 

. Design/execute query app Capp), ,Coptions), 

. Create object object name, type, pgm for CMD, (text) 
» Call program program name 

Execute command command 

» Submit job (job name), (command) 

- Display submitted jobs 

» Edit source (srcmbr), (type), (text) 

. Desian display format (srembr> 

Sign off CH#NOLIST LIST) 


OM OND® Mb wpm 
' 


< 


Types: BSCF, CEL, CL, CLP, CMD, CMNF, DSPF, LF, PF, PRTF, RPG, TXT 


Option: Parm: Type: Parm 2: 
Command: 


Text: Log requests: #YES 


Src file: APFSRC Src Lib: APLIB Obj Lib: APLIB Jobd: APWJORD 
CF3 - Command entry CF4 = Prompt (3 & 3 only) CFS - DSPMSG 





— > (Enter). 


**NOTE: You may, optionally, enter control language commands (see 
appendices). 


**NOTE: Throughout the following text, remember that a small “x’”’ 
is used in place of your team identification. 
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Lab Exercises 





The objective of this set of exercises is to create a physical file of 
accounts payable transaction records that will be used for various pur- 
poses throughout the application. A status code in the record will be 
used to determine at what stage in the overall application a record is. 
This code will also be used to determine if a record meets the select/ 
omit criteria for a given logical file. The possible codes are: 


E = Entered 
T = To Be Paid 
P = Paid 


D = Distributed—to be deleted 


Also, as part of these exercises, a logical file will be created. This file 
will be used for entry and correction of records using the data file 
utility. This logical file will also be used for other purposes later in 
the week. 





CREATING A PHYSICAL TRANSACTION FILE (DAY 1) 


(x is your team number.) 


DDS FOR 
APPTRANx 1. Using the Supplied Data File work sheets, 


(in appendices) code the Data Description 
specification for the physical file 
APPTRANx. Use the field definitions from 
the field reference file, APPFREF. The 
APPTRAWNx file should be built in arrival 
sequence. 


2. Key the data description specification into 
the source file APPSAC using the edit 
source utility. This source file member 
should be named APPTRANx. To do this, 
enter the following: 


a OPTION: 8  PARM: APPTRANx 
APPSRC TYPE: PF 


APPTRANx 


3. Enter the control language command and 
parameters to create your accounts payable 
physical transaction file. The file should 
have the same name as the source member. 


OPTION: 3 





CREATING A LOGICAL TRANSACTION FILE (DAY 1) 


3a. As an optional step, you may display the J 
description of files being created by enter- 
ing the following: 
OPTION: 5 
COMMAND: DSPFD APPTRANx 


4. Code the Data Description Specifications 
DDS FOR for the Accounts Payable Logical Transac- 
APLTRANx tions File APLTRANx. (See Appendices.) 
This file will have the same format as the 
APPT RAWNx file created in the previous 
step. It should be accessed by invoice num- 
ber within vendor number and should only 
include records with an “‘E” in the status 
code. 


5. Using the edit source utility, enter the 
DDS specifications into a source member 
APLTRANx in the APPSAC source file. 
Use the following entries: 


Se 


KppeRe OPTION: 8 PARM: APLTRANx 


TYPES (EF 


6. Create your Accounts Payable Logical J 
Transaction File. Enter the following: 


OPTION: 3 





6a. Optional step: 


OPTION: 5 : 
COMMAND: DSPFD APLTRANx 


USING DFU TO ENTER TRANSACTIONS (DAY 2) 


DSNDFUAPP 


Samet 
















CHGDTA 


ee 


APLTRANx 


7. Use the Data File Utility to enter the sup- 


plied data into the physical file via the 
logical file you created in the prior step. 
The only fields you will enter are: Vendor 
Number, Invoice Number, Date Received, 


Merchandise Amount, Status Code, and 
Department Number. Status code should 


be placed in each record as a constant “‘E”’. 


Key the following to create the DFU 
application: 
OPTION: 1 PARM: APD10x 


Execute the Data File Utility Program 

you created and enter at least five records in 
into your APL TRAWNx file. (See test data 
section for data—in appendices.) 


OPTION: 5 
COMMAND: CHGDTA APD10x 


COPYING A FILE TO THE PRINTER (DAY 2) 


CPYF 


9. Copy the file (you have entered records 


into) to the printer and verify that the rec- 
ords were added correctly. Use the follow- 
ing control language command: 


OPTION: 5 
COMMAND: CPYF APLTRANx 
*LIST PRTFMT (*HEX ) 


The objective of this set of exercises is to create a high level language 
program to permit data entry from a work station. The records keyed 
are to be added to your accounts payable transaction file APLTRANx. 


CREATING A DISPLAY FILE (DAY 2) 






10. Using the supplied display screen layout 
and the Field Reference File, (in appen- 
dices) code the Data Description Specifi- 
cations for the display file APDENT Rx. 
Use ‘‘Invalid Vendor Number” as the error 
message and use indicator 50 to condition 
the error message. 






DDS FOR 
APDENTRx 


1 


= 


. Key the Data Description Specifications 
into the source file APPSAC using the 
edit source utility. The source member 
name should be APDENTRx. The format 
name should be APENTA. 


OPTION: 8  PARM: APDENTRx 
TYPE: DSPF 





ae 


APPSRC 


APDENTRx 


CRTDSPF 








12. Enter the option to create the display file. 


OPTION: 3 


USING YOUR PROGRAM TO ENTER TRANSACTIONS (DAY 2) 





HLL SOURCE 
APR20x 
APR200 







SEU 


APPSRC 


APR20x 





CRTRPGPGM 


-Or- 
CRTCBLPGM 





CALL 
APR20x 





APLTRANx 


CPYF 


NOTE: COBOL Programmers should substitute 
APC200 for APR200; APC20x for APR20x; 
APC210 for APR210; CBL for RPG. 


13. 


14. 


15. 


16. 


17. 


Study the source code printout for APR200, 
given in the appendices. Modify it so that 
your team’s files will be accessed 
(APDENTRx, APLTRANx). 


Use the edit source utility BROWSE/COPY 
facility to obtain a copy of APR200 source 
code. Key in the changes from the previous 
step. 

Name your source member APR20x. 
OPTION: 8 PARM: APR20x 

TYPE: RPG 


Enter the control language command to 
compile your program. Your program 
should have the same name as your source 


member APR20x. 
OPTION: 3 


Execute your program using the supplied 
data in appendices. 


OPTION: 4 


Copy your data file to the printer to verify 

that the new records were added correctly. 

COMMAND: CPYF  APLTRANx  ¥*LIST 
PRTFMT ( *HEX ) 


OPTION: 5 
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UTILIZING A SUB-PROGRAM (DAY 3) 


HLL SOURCE 
APR210 


Se 


APR20x 


DLTPGM 
CRT RPGPGM 





18. 


19. 


20. 


21. 


22. 


Study the source code supplied for sub- 
program APR210 given in the appendices. 


Notice that APR210 does all processing 
relevant to the Accounts Payable logical 
file APLVEND. 


Modify your program APR2Ox to use the 
sub-program APR210 (already compiled anc 
resident in APL/B; ready for your use). 

Do this by removing APR20x references to 
APL VEND, constructing parameter lists and 
using a CALL statement to pass the 
VNDNBR field to the sub-program and 
receive indicator 50 status in return. 


Use the edit source utility to change your 
high level language program (APR20x) to 
call the validation sub-program, APR210. 
OPTION: 8  PARM: APR20x 

TYPE: RPG 


Re-compile your program. 
OPTION: 3 
THEN PRESS RESET AND CFI11. 


23. Execute your program, APR20x. Use the 
supplied data (in appendices) to add at 
least five transactions to your file. 


OPTION: 4 





24. Copy your data file to the printer to verify 


that the new records were added. 
COMMAND: CPYF APLTRANx *LIST 
PRTFMT ( *HEX) 
| OPTION: 5 
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The objective of this set of exercises is to create a control language 
program to execute a batch job stream. Included are a number of 
tasks to insure that the proper records are used in this batch execu- 
tion. 


USING THE DATA FILE UTILITY TO UPDATE 
A DATA FILE (DAY 3) 






25. Execute the data file utility (APD 10x, from 
Step 8) and designate the following 
records as invoices to be paid. Do this by 
changing the status code to a “"T”’. 


INVOICES 
TO PAY 







Vendor No. Invoice No. 
00221 2 
00221 5 
CHGDTA 00221 16 
00714 1 
00714 4 
00714 11 
05075 3 


APLT RANx 


CREATING A LOGICAL FILE OVER MULTIPLE 
PHYSICAL FILES (DAY 3) 


26. Code the Data Description Specifications 
DDS FOR for a logical file, APL VANLx, to be used in 
APLVANLx a vendor purchase analysis program. This 
file should contain vendor master records 
from APPVEND followed by any unpaid 
invoice records (""E” or ‘’T” in status code) 
from your transaction file, APPTRAWNx. 
All records in this logical file should be in 
vendor number sequence. Refer to the 
data file worksheet for APLVANL-x (in 
appendices). 


27. Key the Data Description Specifications 
<a into the source file APPSRC in a member 


named APL VANLx using the source entry 


[APLVANL| utility. 


28. Create your accounts payable logical vendor 
analysis file, APL VANLx. 


CREATING A BATCH PROGRAM (DAY 3) 


HLL SOURCE 
FOR APR30x 


es 


APR30x 


CRTRPGPGM 
-Or- 
CRTCBLPGM 





NOTE: COBOL Programmers should substitute 
APC300 for APR300; APC30x for APR30x; 
CBL for RPG. 


COBOL programmers should also note that 
APC300 will automatically access an external 
printer device file named APC30PRT, already 
created for you in APL/B. You should study the 
APC30PRT DDS — source code given in the 
appendices — to see how it provides the con- 
venience and productivity of the RPG III 
O-specs for you. 


29. Code a high level language program to pro- 
duce the vendor purchase analysis report, 
APR3Ox. Calculation and output specifica- 
tions are included at the end of this section 
and are resident in the APPSAC file in a 
member named APA3OO. Write the file 
description and input specifications. Spec- 
ify that the file APL VANLx will use exter- 
nally defined data. It will be necessary to 
add a level break on vendor number. 


30. Use the Source Entry Utility to enter your 
specifications into a source member named 
APR3Ox. To enter the input specifications 
for APR3Ox, it will be necessary to use the 
“IX” and “JX” SEU formats. With the 
BROWSE/COPY function of SEU, copy the 
calculations and output specifications from 
the source member APA3OO. 


31. Select and enter the appropriate option to 
compile your program, APR3Ox. 
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CREATING A CONTROL LANGUAGE 
PROGRAM—"JOB STREAM” (DAY 3) 





32. Code a control language program (named 
APL30x) to execute the following programs 
as a ‘Job Stream”: 


A. The check writing program APA250. An 
over-ride command will be necessary to 
utilize your physical file, APPTRANx. 
When overriding the APPT RANX file spec- 
ify LVLCHK(*NO). \t will also be neces- 
sary to over-ride the printer file 
“APCHECKS"” so that the output will 
be directed to ‘‘QPRINT”. 


B. The vendor purchase analysis program 
APR3Ox that you created in the previous 
step. 

C. The end-of-year reset program, APR350. 
This job resets the balances in the 
APPVEND so that each team will see 
the same results on the printed report. 





CL SOURCE 
FOR APL30x 


33. Key the control language program to the 
source file, APPSAC utilizing the source 
entry utility. Use the type ‘‘CLP’’. Name 
the file member, APL3Ox. 


34. Select and enter the appropriate option to 
compile your control language program. 


CRTCLPGM 


EXECUTING A SERIES OF PROGRAMS IN THE BATCH 
SUBSYSTEM (DAY 3) 


35. Execute your control language program in 
the batch sub-system. To do this enter the 
SBMJOB following command: 
OPTION: 6 
COMMAND: CALL APL30x 


For this set of exercises, the objective is to modify and create a 
display file which includes the record formats for a subfile. This 
display file will be used in conjunction with a supplied program to 
perform an alphabetic search of the vendor master file. 


PSS SSS 


CREATING A SUB-FILE (DAY 4) 

DDS FOR 36. a. Study the Display Screen Layout named 

APDSRCHx APDSRCH, in the appendices. Note 
especially record names, field names, 
indicators and desired screen layout. 

b. Now, compare the supplied DDS source 
module (also in the appendices) against 


a, above. 
c. Modify APDSARCH source code so that 
<a it will meet the requirements given on the 
APPSRC screen layout. 
37. Use the Edit Source Utility Browse/Copy 


feature to obtain a copy of APDSRCH from 
APPSRC.APLIB. Insert your changes from 

step 36 above. Be sure that your source 
panoeny member is named APDSRCHx. 





38. Select and enter the appropriate option to 
create your display file, APDSARCHx. For 
ease of testing specify L VLCHK/{*NO). 
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UTILIZING A SUB-FILE VIA YOUR PROGRAM (DAY 4) 


NOTE: COBOL Programmers should substitute 
APC400 for APR400; APC40x for APR40x; 
CBL for RPG. 


SOURCE FOR 


APR400 


Se 


APR400 
APR40x 


CRT RPGPGM 
-Or- 
CRICBLPGM 





39. 


40. 


41. 


Modify the supplied program (APR400) 
so that it will process your display file. 

To do this, use the Source Entry Utility 

to create a source member named 
APR40x. Next, use the Browse/Copy 
function to copy the supplied program, 
APR400, to your source member. Finally, 
change the File Description specifications 
to reflect the name of your file. (Source 
Code may be found in appendices.) 


Select and enter the appropriate option to 
compile your program, APR40x. Save your 
program listing for a subsequent lab step. 


Execute your program using the various 
function keys (ROLLUP, ROLLDOWN, 
etc.). Use the following search codes: 


BESTCO 
JOHNSON 
SMITH 
XBEER 


The objective of this exercise is to produce an analytical report utilizing 
the QUERY facility. 


UTILIZING THE QUERY FACILITY TO PRODUCE A REPORT (DAY 5) 


42. Create a QUERY definition named APQ42x 
REQUIREMENTS that will produce a report to meet the fol- 
FOR APQ42x lowing requirements: 


a. Report heading should read ““OUERY 
exercise for Teamx.’’ Page headings 
should read ‘Preferred Vendors.” 


b. Only vendors with an ‘‘A”’ rating for 
delivery and service should be selected. 


c. The following fields should appear in the 
DSNORYAPP sequence listed: 


VNDCLS 
VNDNBR 
VNDNAM 
PCHYTD 
DCTYTD 
DISCPC* 
SRVRTG 
DELRTG 


d. Records should be listed in sequence by 
PCHYTD (descending sequence) within 
VNDCLS (ascending sequence). 


Sa eae 


QRYDTA 





e. Sub-totals should print for each class. 


f. The data base file to be used for this exer- 
cise is APL VEND which includes the 
VENDMAST format. 


OPTION: 2 PARM: APQ42x 
PARM 2: 1 
43. Enter the following options to produce the 
report: 


OPTION: 5 COMMAND: QRYDTA APQ42x 
OUTPUT (*LIST) 


* DISCPC is to be calculated by dividing DCTYTD by PCHYTD. 
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USING DEBUG MODE (DAY 5) 


The objective of this exercise is to use the System/38 debug feature. 
It will use the program you modified to access a display subfile. This 
should free you to concentrate on the debug commands and features, 
instead of the program itself. (Use the program listing generated 

at step 40 for this exercise. ) 





ENTDBG 
ADDBKP 










CHGPGMVAR 
ADDBKP 





44. 


45. 


46. 


47. 


48. 


Obtain a command entry display by 
pressing CF3 at the Programmer Menu. 
Place the program APC40x/APR40x in 
debug mode by entering the appropriate 
command (INCREASE TRACE MAXIMUM 
TO 400 STATEMENTS). 


Select and enter the appropriate command 
to yield a breakpoint (#1) at the statement 
following the one writing the subfile 
display. At this breakpoint, specify the 
display of these variables: IN75, IN76, 
IN77, and CODE1. 


Execute your program (APC40x or APR40x) 
and enter “SMITH”, then “ACE” to reach 
the breakpoint. 


At the breakpoint, do the following: 
a. Verify variables displayed 


b. Modify the variable CODE1 to be 
“BESTCO” 

c. Add another breakpoint (#2) at the last 
executable statement in your program. 


d. Continue with program execution. 


Verify that the subfile begins with the record 
for ‘‘Best and Company.”’ Press the ENTER 
key. 







| DSPBKP 


ADDTRC 


RMVBKP 
DSPTRCDTA 
ENDDBG 








49. At breakpoint #1 enter the appropriate 
command to yield a trace of the program. 
Continue program execution. 


50. Press CF 1. This should yield breakpoint 


#1. Press ENTER to go to breakpoint #2. 


51. Remove all breakpoints. 


52. Display and verify the trace data. 


53. Terminate debug mode. 


APW LAB COMPLETE 
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System Familiarization Exercise for the RPG II! Programmer * 
The objective of this set of exercises is to enter a simple program using 
the S/38 facilities, compile it, and execute it. 


Read the instructions carefully, then perform the keying required. 


At the conclusion of these exercises, you will have created an inquiry 
program that utilizes a display file and a logical file. 


lf the inquiry program does not execute, or anything not described in 
these instructions occurs, call the instructor or lab assistant for help. 


READ ALL INSTRUCTIONS CAREFULLY BEFORE BEGINNING 


1. Your assigned work station should have a display that is blank 
except for the upper left. The upper left should read: 


Enter Password to sign on: 
_ (cursor) 


If your display is not like this, call the instructor for assistance. 
Otherwise, sign on by: 


Keying the following password ““APWRPG”. 
Then press the “ENTER” key. 


Note: These characters will not appear as you key, but the cursor | ; 
will move. 


In a few seconds, a menu screen should appear displaying the fol- 
lowing: 


OPTION MENU FOR RPGITI PROGRAMMERS 


1 ENTER SGURCE PRUGRAY = 
2 CHANGE SOURCE PROGRAM 

3 COMPILE PROGRAM 

4 EXECUTE PROGRAM 

5 SIGNOFF 


ENTER OPTION 
TEAM I0 
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2. The first thing you want to do is enter the source program state- 
ments. In order to retrieve the formatted Source Entry Screen: 


a. Key the number ‘1’ to the right of the word “OPTION” 
(Cursor will automatically move to the team # area). 


b. Key the character assigned to your team by the instructor. 
c. Press the “ENTER” key. 


3. You are now ready to enter the File Descriptions and Calculations 
for the program. The cursor is positioned in the upper left corner 
of the screen. Key “IPF” (Insert with Prompting for File descrip- 
tion format) as shown in figure 1. Press “ENTER”. 


ReRHBREGINNING OF DATA ERE 
HUKKEKKEND OF DATARM RRR H 


Enter [ Cinsert), IFff Cinsert under format ff), IFff Cinsert with 
prompt ff) or A (copy after) at cursor. RPG ff values are: 
ee,%,H,F,FC,FX,E,L,1,9,1X, JX,DS,SS5,C,0,P,U 
For more hele, press HELP. 


Member TEAMX added to file AFFSRC.APLIE. 





Figure 1 
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4. Key the first File Description as shown in figure 2. After comple- 
tion of entry (WORKSTN), press “ENTER”. 


SEU US W:f Mbr: TEAMX 
FMT H 


HHEHEEEKEND OF DATAR HER HEH 


FMT SEQNBR Filename om Desig EOF Seq Fmt Kedlen Mode Key-Len 
F 


RAT Org OV Key-loc Ext Device K Exit Entry A/U Cond 
WORK STN) 





Figure 2 


5. Key the second File Description as shown in figure 3. After key- 
ing the last entry (DISK), press “ENTER”. 





SEU US W:4 Mbr TEAMNX Stan 

FAT Fo seven FF ilenameIFPEAF... .RlenLKLATOVK LocEDevice+...... RExitt+Entry+tA....U 
#RERBEGINNING OF DATAxKH 

0004.00 FESDFATS CF CE WORKSTN 


jena naa 


MEHHNHEEND OF DATA R MMR HOR 


FMT SEQNER Filename O° Desig EOF Seq Fat Redlen Mode Key-Len 
; © 


RAT Org OV Key-Lloc Ext Device K Exit Entry A/tU Cond 
(DISK) 


Figure 3 
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6. You are now ready to enter the calculations. However, the File 
Description format is still displayed and the cursor is positioned to 
allow entry of another File Description specification. Press the 


“Field Backspace’ key to position the cursor in the 
“SEQNBR” field. 


7. Key “IPC” (Insert with Prompting-Calculation format) as shown in 
figure 4 and press “ENTER”. 


SEU US W:14 Mbr: TEAMX Scan: 


FFilenameIFEAF....RlenLKLAIOVKlLocEDevecer 
#eeeKEGINNING OF DATAM HEH 


0001.00 FESDFMTS CF E WORKSTN 
0002.00 FAFLVEND IF E DISK 


HHHHMEHEND OF DATA MMe ee 


FMT SEANER Filename Type Desiq EOF Sey Fut Redlen Mode Key-Le: 
F 


KAT Org OV Key-toc Ext Device K Exit Entry A/U Cond 





Figure 4 
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8. Key the first calculation statement as shown in figure 5. After 


keying the last entry, (TAG), press “ENTER”. 


SEU US W:i Mbr: TEAMX Scan: 
FFilenameIFPEAF....RlenLKLATOvK locEDevice+... 
Hee REGINNING DF DATA#H® 
0001.00 FESDFMTS CF CE WORKSTN 
0002.00 FAFLVEND IF E DISK 


HHRARHHEND OF DATAN BRR HH 


FMT SEQNER Level NOLNO2QNO3 Factort Opcode Factor? 
Cc 
Kesutt Len Dec H/A HiLoEy Comment 


Figure 5 


9. Key the second calculation statement as shown in figure 6. After 


keying the entry (VNDINOQ), press “ENTER”. 


US W:4 Mbr: TEAMX Scan: 
F ....-FFilenameIPEAF....RlenLKLAIOVK locEDevice+ 
##eeH BEGINNING OF DATANHHH 
FESDFMTS CF E WORKSTN 
.90 FAFLVEND IF E DISK 
.00 c LOOF 


HUHEHEHEND OF DATA RM 


FMT SEQNER Level NOINOONOS Factori Necode Factor2 
Cc 


Result Len Dec H/A Hil.oEy Comment 


Figure 6 
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10. Key the third calculation statement as shown in figure 7. After 
keying the entry, (50), press “ENTER”. 


SEU US W:14 Mor: TEAMX Scan: 
FMT F .....FFilenameIFEAF....RlenLKLAIOvVK locEDevicet......KExi 
HHUMEEGINNING OF DATA HHH 
0001.00 FESDFMTS CF CE WORKSTN 
0002.00 FAFLVEND IF E K DISK 
0003.00 Cc LOOF TAG 
0004.00 Cc EXFMTVNDINQ 


HHRHHHHREND OF DATAM Mae 


FMT SEQNER Level NOINOZNOS Factori Docnde Factor? 
c cs 
Result Len Dec H/A 6°" Lomment 





Figure 7 


11. Key the fourth calculation statement as shown in figure 8. After 
keying the entry, (LR), press “ENTER”. 


SEU us W:f Mbr: TEAMX Scan: 

FMT F .....FFilenameIFEAF....RlenLKLAIOVK LocEDevice+......KExi 
HHREBREGINNING OF DATAwH HS 

0001.00 FESDFMTS CF CE WORKSTN 

0002.00 FAFLVEND IF € K DISK 

0003.00 Cc LOOP TAG 

0004.00 Cc EXFMTVNDING 

0005.00 Cc NEXT CHAINAPLVEND 


HURHEKEEND OF DATAR RHEE SH 


FMT SEQNER Level NOINOCNOS Factori Dpcoade Factor? 
Cc (eran) 


Result Len Dec A a" Comment 





Figure 8 
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12. Key the last calculation statement as shown in figure 9. After key- 


ing the entry, (LOOP), press “ENTER”. 


US Wi Mbr: TEAMX Scan 
FFilenamelFEAF... .RlLenLXKLAIOvK LocEDevice+t 
¥xXR€KE GINNING OF DATAMEM 
FESDFMTS CF CE WORNSTN 
FAFLVEND IF E K DISK 
LOOF TAG 
EXFMTYNDINQ 
NEXT CHAINAFLVEND 
99 SETON 


HHHERPHEND OF DATA RR HMR 


FMT SEQNER Level NOLNODNOS Factori Nocode Fartor2 


c 


Result Len Dec H/A HiloEy Comment 





Figure 9 


13. At this point, you are ready to call for the Exit Application 
prompt, (End-of-Job). Todo this, press the “CMD” key and the 
"1" (at the top of the keyboard). This will cause the Exit Appli- 
cation Prompt (figure 10) to appear. 


SEU EXIT 


Select one of the following: 
Exit without update 
Exit and update member 
Exit and create a new member 
Update member, no exit 
Create member, no exit 
Return to edit screen 


Option. 2 F 
MEMBER LIE 


For options 2 to §: TEAMX AFL, 
Resevuence member (CY N): Y Start: Incred 


For options fi to 3 
Return to member List CY N). N 


For options 14 to 6: 
Frint source listing CY N) N 


TOTAL RECORDS ADDED CHANGED DELETED SYNTAX 
7 7 





Figure 10 
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14. 
15. 


16. 


17. 


18. 


20. 


21. 


Simply press the “ENTER” key to return to the original menu. 


You are now ready to compile the program, option 3. Make 
entries as follows: 


a. Key the number ‘‘3”’ to the right of “OPTION”. 
b. Key your team character to the right of ‘““TEAM#”. 
c. Press the “ENTER” key. 


During the compilation, input will be inhibited at your work sta- 
tion (indicated by a square of light on the right side of the display— 
next to a printed label ‘Input Inhibited’’). Your keyboard will be 
locked at this time. 


When the light goes out, your work station will be ready to accept 
the next request, which will be to execute the program, option 4. 
Make the following entries at this time: 


a. Key the number ‘’4” to the right of “OPTION”. 
b. Key your team character to the right of ‘“TEAM#”. 
c. Press the “ENTER” key. 


Follow the instructions on the ““VENDOR MASTER INQUIRY” 
display. The following vendor numbers are valid entries: 


00221 
00714 
05075 
10504 
11002 


Be sure to press the ENTER” key after keying the vendor number. 


. Enter an invalid vendor number (95137) to verify that the error 


message appears. When the error message is displayed, press the 
“ERROR RESET” key to free the keyboard. 


When satisfied with results of inquiries, bring program to end-of- 
job by: 

a. Pressing ““CMD” key. 

b. Pressing the “‘1’’ key at the top of the keyboard. 

This is the end of the familiarization exercise, therefore, you 
should ‘‘sign-off’’ by selecting option 5. 

a. Key the number ‘’5”’ to the right of “OPTION”. 

b. Press the “ENTER” key. 
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System Familiarization Exercise for the COBOL Programmer 


The objective of this set of exercises is to enter a simple (24-line 
COBOL) program using the System/38 facilities, compile it, and execute 
it. It also lets you concentrate on becoming familiar with the work- 
station keyboard. 


When completed, you will have created an inquiry program that uses 
both display and logical-database files. 


Should you encounter any difficulties or unusual situations along the 
way, be sure to obtain help from the instructor or lab assistant. 





READ ALL OF THE INSTRUCTIONS FOR EACH STEP BEFORE g 
PERFORMING IT!! 


1. Your assigned work station should have a display that is blank . 
except for the upper left. The upper left should read: 


Enter Password to sign on: 
__ (cursor) 


If your display is not like this, call the instructor for assistance. 


Otherwise, sign on by: 
Keying the following password ““APWCBL”. 


Then press the “ENTER” key. ) | 
Note: These characters will not appear as you key, but the cursor 
will move. 


In a few seconds, a menu screen should appear displaying the 
following: 


OPTION MENU FOR COBOL PROGRAMMERS 


1 ENTER SGURCE PROGRAM 

2 CHANGE SOURCE PROGRAM 

3 COMPILE PROGRAM 

& EXECUTE PROGRAM a 
5 SIGNOFF 


€NTER OPTION — 
TEAM ID 





2. The first thing you want to do is enter the COBOL program source 
statements. To do this: 


a. Key the number ‘’1”' to the right of the word “OPTION”. (The 
cursor automatically moves to team # area.) 


b. Key the character assigned your team by the instructor. 
c. Press the “ENTER” key. 


3. You are now ready to use the System/38 Edit Source Utility to 
enter your COBOL statements. The cursor is positioned at the 
upper left. Key ‘IPCB”’ (Insert with Prompting for COBOL state- 
ments) as shown in figure 1. Press “ENTER”. 


US Wi Mbr: TEAM? Scan: 

H~AEEE HE EEEEE EEE EERE EEE EE EEE EEE AE EE EEE EEE EEE EF ERE ESE EEEEEE EEE EE HH 
H*XEREE GINNING OF DATARH HR 
HHREEREEHEND OF DATA MRR MMH 


Enter I (insert), IFff Cinsert under format ff), IFff Cinsert with 
prompt ff) or A (copy after) at cursor. CBL ff values are: 
«x, CH,C# 


For more help, press HELF. 





Figure 1 
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4. Key in the first line (ENVIRONMENT DIVISION) as shown in , 
figure 2. J 


SEU US W:4 Mbr: TEAM? Scan: 
AFF E BEE EEE EEE EEE EE EERE EERE EEE EEE EE EEE EE EE EEE EEE HEE e Het e tee tte et 
*#e*HBEGINNING OF DATARHEHE 


HHMREHMESZEND OF DATARMER HEHE 


FMT SEQNBR Cont Arga-A Areg-E 
Ck RONMENT DIVISION 


iy 





Figure 2 
After completion of the entry, press “ENTER”. 
j 


5. Key in line 2 as shown in figure 3; then press “ENTER”. 


SEU US W:4 Mbr: TEAM? Scan: 
AEE HEEEEE EEE EEE EE EEE EEE EEE EEE EEE EEE EERE EEE EEE EEE Eee teeter tte ee 
**** BEGINNING OF DATARHHE 
0004.00 ENVIRONMENT DIVISION. 


MHEHEEEHEND OF DATAMH MEM ERE 


FMT ‘SEQNBR Cont Are@a-A Area-B 
cE IGURATION SECTION 





Figure 3 
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6. Key in line 3 as shown in figure 4; then press “ENTER”. 


SEU US Wei Mbr: TEAM? Scan: 
FMT CB AEE HEE EE EE EEEEA EEE EERE EEE EE EEEEEEE EEE EEEEEEE EAE EEE EE EEE EE tee tt 
**2Re BEGINNING OF DATAX HH 
0001.00 ENVIRONMENT DIVISION. 
0002.00 CONFIGURATION SECTION. 


HXOXERKZEEND OF BDATAH MER HH 


FMT SEQNER Cont Area-A Area-B 
Ch CE-COMPUTER. IFM-S38 





Figure 4 


7. Key in line 4 as shown in figure 5; then press “ENTER”. 


SEU US W:i Mbr: TEAM? Scan- 
HATE BE EEEE EEE EEE EEE EEE EEE EEE EAEE EEAEE EEE EEE EE EEE Ete ttt tee ttet 
#x** BEGINNING OF DATARHHK 
0001.00 ENVIRONMENT DIVISION. 
0002.00 CONFIGURATION SECTION. 
0003.00 SQURCE~-~COMPUTER. IBM-S39. 


aan eaewae 


KHKEMMEEND OF DATA MH KHER 


FMT SEQNBR Cont Argag-A Areg-B 
CE CT-COMFUTER. IBM-S38, 





Figure 5 
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8. Key in line 5 as shown in figure 6; then press “ENTER”. 


SEU US W:4 Mby: TEAM? Scan: 
HATE EHEEEEEEEREEEEEE EEE EE EEE ELEEFEEEEEEEEEEEEE EEE EEEEEE EE EEE EEE 
HeHHeHBEGINNING OF DATAKHHH 
9001.00 ENVIRONMENT DIVISION. 
0602.00 CONFIGURATION SECTION. 
9003.00 SOURCE-COMFUTER. IBM-S38. 
4604.00 OBJECT-COMFUTER. IBM-S38. 


KHMER RSEND OF DATARH ERO HE 


FMT SEQNEF Cont Area-A Area-B 


CK -GUTFUT SECTION 


SSC SSS SS ECE 


Figure 6 


9. Key in line 6 as shown in figure 7; then press “ENTER”. 


SEU US W:i Mbr: TEAM? Scan: 

FMT CH nna nec TAF FEREEEE EE EEE HEE EE EE EEE EEE EEE EE AE EE EEE EEE EE EE EEE EHH ttt t tte tt 
#HHHBEGINNING OF DATAR HHH 

0001.00 ENVIRONMENT DIVISION. 

0002.00 CONFIGURATION SECTION. 

0003.00 SOURCE-COMPUTER. IBM-S38. 

0004.00 ORJECT-COMFUTER. IHM-S38. 

0005.00 INPUT-OUTPUT SECTION. 


HHHKEEMKEND OF DATAR RE KMEM 


FMT SEQNBR Cont ArgasA Areg- 
CH ite) =CONTROL ; 





Figure 7 


10. Key in line 7 as shown in figure 8; then press “ENTER”. 


Mbr: TEAM? 7 Scan: 
<AE TEBE EEE EERE EERE EE EEE EE EEA EEA EEE EEE PETE EEE EEE ETH HEHE tte td ete 
x*#**BEGINNING OF DATAXx## 

ENVIRONMENT DIVISION. 

CONFIGURATION SECTION. 

SOURCE-COMPUTER. IBM-S398. 

OBRJECT-COMFUTER. IBM-S38. 

INFUT-QUTFUT SECTION. 

FILE-CONTROL. 


KHHERKEXEND OF DATA MRE RHE 


FMT SEQNER Cont Area-A Ares-k 


Ck SELECT DSFi ASSIGN WORKSTATION-ESDFMTS 


ET 





Figure 8 


11. (The warning message at the bottom indicates that you have not 
yet finished entering the SELECT statement.) Key in line 8 as 
shown in figure 9; then press “ENTER”. 


SEU US W:1 Mbr: TEAM? Scan: 
HATE REE EEEEE EE EEE ERE EEE EE EE EE EEE EAE EEE EEE EEE EEE EEF Ete tte tte tet 
*#*X**X BEGINNING OF DATAKHH% 
0001.00 ENVIRONMENT DIVISION. 
0002.00 CONFIGURATION SECTION. 
0003.00 SOURCE-COMFUTER. IBM-S38. 


0004.00 ORJECT-COMPUTER. IBM-S38. 
0005.00 INFUT-OUTFUT SECTION. 


0006.00 FILE-CONTROL. 
0007.00 SELECT DSFi ASSIGN WORKSTATION-ESDFMTS 


HHRHEESZEND OF DATA MM REH 


FMT SEQNER Cont Area-A srea-# 
CE ORGANIZATION TRANSACTION 


ed 


A period is required before $EOF$. Line not accepted. 


Figure 9 
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12. Note that the warning message disappears because line 8 completed 
the SELECT statement. Now key in line 9 as shown in figure 10; 
then press “ENTER”. 


US W:i Mbr TEAM? Scan 
EEE EERE EERE EEE EEE EEE EE EEE EEE EEE EEE EEE ERED EE EEE EEE EE EE EEE EEE Ett 
HHHKKEGINNING OF DATAR KH 
.00 ENVIRONMENT DIVISION. 
.00 CONFIGURATION SECTION. 
.00 SOURCE -COMPUTDR. IRK-£38. 
00 ORJECT-COMPUTER. IBM-S3e., 
.06 INF UT-OQUTFUT SECTION. 
.00 FILE-CONTROL . 
SELECT DSi ASSIGN WORKS TATION-ESDFMTS 
GRGANIZATION TRANSACTION. 


HEXKEAKEND OF DATAR RHR OH 


SEQNER Cont Area-A Area-kB 


SELECT DBRi ASSIGN DATABASE-AFLVEND ORGANIZATION 





Figure 10 


13. Key in line 10 as shown in figure 11; then press “ENTER”. 


SEU US W:i Mbr: TEAM? Scan 
FMT CB ina nn TAFE HAF EEE EEE E HAE HARE EEA EEE EE EE FE EE HEHEHE HEE teeth tte tte tee tet tet 
*HHHEREGINNING OF DATARHH® 
0001.00 ENVIRONMENT DIVISION. 
0002.00 CONFIGURATION SECTION. 
0003.00 SOURCE-COMFUTER. IBM-S38. 
0004.00 OBJECT-COMFUTER. IRM-S38. 
0005.00 INFUT-OUTFUT SECTION. 
0006.00 FILE-CONTROL. 
0007.00 SELECT DSFi ASSIGN WORKSTATION-ESDFMTS 
0008.00 ORGANIZATION TRANSACTION. 
6009.00 SELECT DEi ASSIGN DATABASE-APLVEND ORGANIZATION 


HEKKHKHXEND OF DATA RH 2K 


FMT SEQNER Cont Area-A Area-FB 
CE [INDEXED ACCESS RANDOM RECORD VNDNER OF VENDMAST. 


ZSEOFE invalid organization. Line not accepted. 





Figure 11 


14. Key in line 11 as shown in figure 12; then press “ENTER”. 


SEU us Wei Mbr TEAM? Scan 
HERE BEE EEEEE EE EEE EEE FEED EE EEE HEHEHE EEE EEEEEEEEE EEE EE EE Ete tee et tt 
eREHEGINNING OF DATARH RH 
5004.00 ENVIRONMENT DIVISION. 
9007.00 CONFIGURATION SECTION. 
2003.00 SOQURCE-COMFPUTER. ITBM-S38. 
4904.60 QHJECT-COMFUTER. IEM-~S38. 
9005.00 INFUT-OGUTFUT SECTION. 
0606.00 FILE-CONTROL. 
9007.00 SELECT DSF4 ASSIGN WORKSTATION--E SDFMTS 
5008.00 ORGANIZATION TRANSACTION. 
6607.00 SELECT DRi ASSIGN DATABASE-AFLVEND ORGANIZATION 
0010.00 INDEXED ACCESS RANDOM RECORD VNDNER OF VENDMAST. 


SRR RRKEND OF DATA NR Re ee 


FMT SEQNER Cont ApeacA ALea-B 
Ch DATA DIVISION, 


Figure 12 


15. Key in line 12 as shown in figure 13; then press “ENTER”. 


SEU US Wei Mbr: TEAM? Scan: 
TAT EE REESE EEE EHEEEEE EEE EEE EE EEE EEE SEEEEEEE EEE EEE EEE EE +EEESE EEE EE +44 
#*#2*0REGINNING OF DATA 4H 
0001.00 ENVIRONMENT DIVISION. 
0002.00 CONFIGURATION SECTION. 
0003.00 SOURCE-COMFUTER. IBM-S36. 
0004.00 ORJECT-COMPUTER. IBM-S36. 
0005.00 LNPFUT-OUTFUT SECTION. 
0006.00 FILE-CONTROL. 
0007.00 SELECT DSF1 ASSIGN WORKSTATION-ESDFMTS 
0008.00 ORGANIZATION TRANSACTION. 
0009.00 SELECT DRi ASSIGN DATABASE-AFPLVEND ORGANIZATION 
0010.00 INDEXED ACCESS RANDOM RECORD VNDNBR OF VENDMAST. 
0011.00 DATA DIVISION. 


HHHHSHHEND OF DATA MMM HEH 


FMT SEQNBR Cont Area-A Area 
CE (ILD) GECTION) 


Figure 13 
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16. Key in line 13 as shown in figure 14; then press “ENTER”. : 


SEU US W:14 Mbr: TEAM? Scan: 
FMT CH ian a a a TAFEE BREF H EEE HEHEHE EE EEEEEEEE EEE EEE EE EEE EEEE EE EES EEE EEE EE EEE ett 
#eNHBEGINNING OF DATA HHH 
0001.00 ENVIRONMENT DIVISION. 
0002.00 CONFIGURATION SECTION. 
0003.00 SOURCE-COMPUTER. IBM-S38. 
0004.00 OBJECT-COMPUTER. IBM-S38. 
0005.00 INPUT-OUTPUT SECTION. 
0006.00 FILE-CONTROL. 
0007.00 SELECT DSP1 ASSIGN WORKSTATION-ESDFATS 
0008.00 ORGANIZATION TRANSACTION. 
0007.00 SELECT DE ASSIGN DATABASE-APLVEND ORGANIZATION 
0010.00 INDEXED ACCESS RANDOM RECORD VNDNBR OF VENDMAST. 
0011.00 DATA DIVISION. 
0012.00 FILE SECTION. 


HHHKEXHEND OF DATA HH MHEH 


FMT SEQNBR Cont Area-A Area-B re 
CR AB IRD 





Figure 14 


17. Key in line 14 as shown in figure 15; then press “ENTER”. 


SEU US W:4 Mbr: TEAM? Scan: 
EMT CB on nce TAFE F BETH EEE EEE EE EEE EEE EEE EE EEEEEEE EE EEE FEEEEEEEEEEFE EEE EEE + Ett tt 
#44 BEGINNING OF DATAHHHH 
0001.00 ENVIRONMENT DIVISION. 
0002.00 CONFIGURATION SECTION. 
0003.00 SOURCE-COMPUTER. IBM-S38. 
0004.00 OBJECT-COMPUTER. IBM-S36. 
0005.00 INPUT-OUTPUT SECTION. 
0006.00 FILE-CONTROL. 
0007.00 SELECT DSPi ASSIGN WORKSTATION-ESDFMTS 
0008.00 ORGANIZATION TRANSACTION. 
0009.00 SELECT DBi ASSIGN DATABASE-APLVEND ORGANIZATION 
0010.00 INDEXED ACCESS RANDOM RECORD VNDNBR OF VENDMAST. 
0041.00 DATA DIVISION. 


0012.00 FILE SECTION. 
0013.00 FD DSPi LABEL RECORD OMITTED. a 


aeaaneanaae 


MEMMHHHEND OF DATAK HHH HHH 


FMT SEQNBR Cont Ayea-A Area-f 
CH 65 (DSF. COPY DDS-VNDING OF ESDFMTS,) 





Figure 15 


18. Notice the COPY warning message at the bottom. This simply 
means that the COPY is not performed by the Edit Source Utility— 
but will be performed later, when you compile the program. 
Notice, also, that the COPY warning message keeps line 14 in the 
entry area. To continue entry, press the “FIELD BACKSPACE”’ 


key until the cursor is in the “SEQNBR” field. Now key in 
“IPCB” as shown in figure 16; then press “ENTER”. 


SEU US W:4 Mbr: TEAM? Scan: 
FMT CB inne ca ce TAFEHHEEEEEREE EEE EEE EE EE EEE EE EE EEE EEE EEEE EEE EEE EERE EEREEE HEHE EET 
H*HSEBEGINNING OF DATAHHHE 
0001.00 ENVIRONMENT DIVISION. 
0002.00 CONFIGURATION SECTION. 
0003.00 SOURCE-COMPUTER. IBM-S38. 
0004.00 OBJECT-COMPUTER. IBM-S38. 
0005.00 INPUT-OUTPUT SECTION. 
0006.00 FILE~CONTROL. 
0007.00 SELECT DSPi ASSIGN WORKSTATION-ESDFMTS 
0008.00 ORGANIZATION TRANSACTION. 
0009.00 SELECT DBi ASSIGN DATABASE-AFLVEND ORGANIZATION 
0010.00 INDEXED ACCESS RANDOM RECORD VNDNBR OF VENDMAST. 
0011.00 DATA DIVISION. 
0042.00 FILE SECTION. 
0013.00 FD DSPi LABEL RECORD OMITTED. 
0014.00 O4 DSF COPY DDS~VNDIN@ OF ESDFMTS. 
HEMEHHKXEND OF DATARH HR HHH 


FMT GNBR Cont Area-A Area-H 
Ck (FCB) 00 O41 DSP. COFY DDS-VNDIN@ OF ESDFMTS. 


Syntax of COFY statement checked but COFY not performed. 





Figure 16 


19. Key in line 15 as shown in figure 17; then press “ENTER.” 


SEU US Wei Mhr: TEAM? Scan: 
~AEEEEEEEEEREEEE EEE EERE EEE EEEEE ETERS ELSES EEEE EEE EEE EEEE EE ESE EET 

¥RRHHEGINNING OF DATAR HHH 

0001.00 ENVIRONMENT DIVISION. 

0002.00 CONFIGURATION SECTION. 

0003.60 SOURCE-COMFUTER. IBM-S38. 

0004.00 OBJECT-COMPUTER. IBM-S3d. 

0005.00 INFUT-OQUTFPUT SECTION. 

0006.66 FILE~CONTROL. 

0007.00 SELECT DSFi ASSIGN WORKSTATION-ESDFMTS 

0008.00 ORGANIZATION TRANSACTION. 

0009.00 SELECT DRi ASSIGN DATABASE-AFLVEND ORGANIZATION 

0010.00 INDEXED ACCESS RANDOM RECORD VNDNBR OF VENDMAST. 

0011.00 DATA DIVISION. 

0012.00 FILE SECTION. 

0013.00 FG DSF4 LABEL RECORD OMITTED. 

0014.00 Oi DSF. COPY DDS-VNDINQ OF ESDFHTS. 


FMT SEQNER Cont Arsa-A Area~-kb 


Ck €) DEY LABEL RECORDS STANDARD 


ZR IE EMT ESS AE PE SE TT SD 


Syntax of COPY statewent checked but COFY not per formed. 





Figure 17 
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20. Key in line 16 as shown in figure 18; then press “ENTER”. 


SEU US W:l Mbr: TEAM? Scan: 
FMT CB AFEEBE EEE EEE EE REE EEE EE EE ETE EE EEE EERE EEE EE EEE EEEEE EEE EE EEE Et Ete 


0013.00 FD DBi LABEL RECORDS STANDARD. 


HERMMNESEND OF DATAM MMMM 


FMT SEQNBR Cont Apea-A Area—h 
CH Di. COPY DDS-VENDMAST OF APLVEND, 





Figure 18 


21. Key in “IPCB”’ as shown in figure 19 (to acknowledge COPY-warning 
message and continue inserting). 


SEU US W:i Mbr: TEAM? Scan: 
FMT CH PETE BEE EERE EER EERE EAE EEE EEEE EEE EEA EEE EEE EEE EEE EEA Eee eettet tet: 
0015.06 Fo DBi LABEL RECORDS STANDARD. 
G016.00 O14 Di. COFY DDS-VENDMAST OF AFL.VEND. 
MEXHMEHEND OF DATA HHH HHH 


FMT SEQNBR Cont Area-A Area-H 
Ck QPCR) OO O4 Di. COPY DDS-VENDMAST OF APLVEND. 


Syntax of COPY statement checked but COPY not performed. 





Figure 19 


c 


C 


22. Key in line 17 as shown in figure 20; then press “ENTER”. 


SEU US W:4 Mbr: TEAM? Scan: 
FMT CH AREER EEEE EEE EEEEEEEREE EEE EEE FEEEREEEEEE TEETH EET EEE EE EEE THEE THT 


0015.00 FD Di LABEL RECORDS STANDARD. 
0016.00 O41 Di. COPY DDS-VENDMAST OF AFLVEND. 


HHHHEKEHEEND OF DATARHHMRREX 


FMT SEQNER Cont Area-A Area- 
CR EDURE DIVISION 


Syntax of COFY statement checked but COPY not performed. 





Figure 20 


23. Key in line 18 as shown in figure 21; then press “ENTER”. 


SEU US W:4 Mbr: TEAM? Scan: 

FMT CH AEE BEER EE EEE EERE EEEEEE EE EEE EE EEEE EEE EEEEEHEEFEFEEEHEEFEE PEE EEE HS 
0015.00 FD DEHi LABEL RECORDS STANDARD. 
0014.00 O1 Di. COPY DDS-VENDMAST OF AFLVEND. 

0017.00 FROCEDURE DIVISION. 


HHEEEEKEND OF DATARH HEM HH 


FMT SEQNER Cont Arga-A = 
CH N. OFEN I-O DSFi INPUT DBi. MOVE ZEROS TO VNDINO-O 


Syntax of COFY statement checked but COFY not performed. 





Figure 21 
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24. Key in line 19 as shown in figure 22; then press “ENTER”. 


SEU US W:i Mbr: TEAM? Scan: 
FMT CB ATER BREREE EEE FREER EEA EEE EEE EEE EE EERE ERE EEE EEE EES EEE EEE HET ttt ett 
0015.00 FD DBi LABEL RECORDS STANDARD. 
0016.00 Of Di. COFY DDS-VENDMAST OF AFLVEND. 
0017.00 PROCEDURE DIVISION. 
0018.00 BEGIN. OFEN I-0O DSFi INFUT DEi. MOVE ZEROS TO VNDINQ-O. 


MHMKEKEKEND OF DATAMM KR HE 


FMT SEQNHR Cont Area-A Areg-B 
CE COOGP) . WRITE DSF FORMAT “UNDING" 


OO  — — ———— need 


Syntax of COPY statement checked but COFY not performed. 





Figure 22 


25. Key in line 20 as shown in figure 23; then press “ENTER”. 


SEU US W:i Mbr: TEAM? Scan 

FMT CB cn a CAFE EEEEE EEE EEE EEE EEE EEE EERE EEE ETE E EEE EEE EET THT E EEE EET EET E TE ET 
0015.00 FD DE4 LABEL RECORDS STANDARD. 

0014.00 O41 Di. COFY DBS-VENDMAST OF AFLVEND. 

0017.00 FROCEDURE DIVISION. 

0018.00 REGIN. OFEN I-O DSFL INFUT DBRi. MOVE ZEROS TO VNDINQ-O. 

0019.00 LOOF. WRITE DSF FORMAT “VNDINQ". 


MEXHEXHEND OF DATAR HH MHEH 


FMT SEQNER Cont Area-A Area =k 
Ck 0020.00 READ DSPi. IF IN99 = B"4t" THEN GO QUIT. 


Syntax of COFY statement checked but COPY not performed. 





Figure 23 


ae 


26. Key in line 21 as shown in figure 24 (don’t forget the period at the 
end); press “ENTER”. 


SEU US W:14 Mbr TEAM? Scan: 
FMT CB SHASEE HEHEHE FEF EE ER EEE EEE EEER EEE EEE EEE EE EREE HE EEEEE EEE EEE EEEE EE HH 
0015.00 FD DHL LABEL RECORDS STANDARD. 
0014.00 O01 Di. COFY DDS-VENDMAST OF AFLVEND. 
0017.00 FROCEDURE DIVISION. 
0018.00 BKEGIN. OFEN I-O DSFi INFUT DEL. MOVE ZEROS TO VNDING-O. 
0019.00 LOOF. WRITE DSF FORMAT "VNDINQ”. 
0020.00 READ DSFi. IF INS? = B°1" THEN GO QUIT. 


HHKEHEHEND OF DATAM MH RH 


FMT SEQNER Cont Area-A 
CH 


Syntax of COFY statement checked but COFY not performed. 





Figure 24 


27. Key in line 22 as shown in figure 25; then press “ENTER”. 


SEU US W:if Mbr TEAM? Scan 

FMY CR A EERE EE EEE EEE EEE EEE EEE EEE EE EE EEE EE EEE EEE EEE EEE EEE EE EEE EEE Hd 
0015.00 FD DBi LABEL RECORDS STANDARD. 
0016.00 O14 Di. COFY DDS-VENDMAST OF AFLVEND. 
0017.00 FROCEDURE DIVISION. 
9048.00 BEGIN. QOFEN IT-O DSF4 INFUT DEL. MOVE ZEROS TO VNDINQ-(0. 

0019.00 LOOP. WRITE DSF FORMAT “VNDINQ". 

0020.00 READ DSPa. IF INS9 = B"4" THEN GO QUIT. 

MOVE E"O" TO IN50. MOVE NEXT-DDS TO VNDNBR OF VENDMAST. 


ACCRICREND OF DATAK ROR KH 


FMT SEQNER 
Ck 


Syntax of COFY statement checked but COFY not performed. 





Figure 25 
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28. Key in line 23 as shown in figure 26; then press “ENTER”. 


SEU US W:4 Mbr: TEAM? Scan: 
FMT CB —AFEEBEEEEEFEEEFEEFEEEEEEEEEEEEE EE EEE EEE EEE EEEEEHEEEEEEFE EEE EEE EEE TH 
0015.00 FD DHi LABEL RECORDS STANDARD. 
0014.00 O4 Di. COPY DDS~VENDMAST OF APLVEND. 
0017.00 PROCEDURE DIVISION. 
0018.00 BEGIN. OPEN I-O DSFi INFUT DB1i. MOVE ZEROS TO VNDING-O. 
0019.00 LOOF. WRITE DSF FORMAT "VNDINQ". 
0020.00 READ DSFi. IF INS? = B"t" THEN GO QUIT. 
0021.00 MOVE B"O" TO IN50. MOVE NEXT-DDS TO VNDNBR OF VENDMAST. 
0022.00 READ DBi INVALID MOVE B"4" TO INS5O GO LOOF. 


HXSHHHEKEND OF DATAKMHH MEH 


FMT SEQNER Cont Area-A Area-EB 


CB MOVE CORR VENDMAST TO VNDING@-O. GO LOOF 


Syntax of COPY statement checked but COFY not performed. 





Figure 26 


29. Key in line 24 as shown in figure 27; then press “ENTER”. 


SEU US W:4 Mbr: TEAM? Scan: 

FMT CR AFTER EEEEFE EE EERE EEE HEE EL EEE EEE EEE EEE EE EEE EEE EEEFEE EE HEE EHH HHH tt 
0015.00 FD DEi LABEL RECORDS STANDARD. 

0016.00 O01 Di. COFY DDS-VENDMAST OF AFLVEND. 

0017.00 FROCEDURE DIVISION. 

0018.00 BREGIN. OFEN I-0 DSPi INFUT ‘DBi. MOVE ZEROS TO VNDING-O. 
0019.00 LOOP. WRITE DSF FORMAT "VNDINQ". 

0020.00 READ DSF1i. IF IN99 = BK"4" THEN GO QUIT. 

0021.00 MOVE E"O" TO INSO. MOVE NEXT-DDS TO VNDNER OF VENDMAST. 
0022.00 READ DBi INVALID MOVE B"4" TO INSO GO LOOF. 

0023.00 MOVE CORR VENDMAST TO VNDINGQ-O. GO LOOF. 


HHHHMEXEND OF DATA HHH HHH 


FMT SEQNER Cont Arga-A Area-k 
CH “CLOSE DSFi DRL. STOF RUN, 


Syntax of COFY statement checked but COFY not performed. 





Figure 27 











30. Now you are ready to exit the Edit Source Utility. To do this, 
press the “CMD” key and the “1” (at the top of the keyboard). 
This will yield the EXIT menu (figure 28). 


Key in a “2” as shown in figure 28; then press “ENTER”. 


SEU EXIT 


Select one of the following: 
» Exit without update 
. Exit and update member 
. Exit and create a new member 
. Update member, no exit 
. Create members, no exit 
. Return to editing 


Option: ® 
MEMBER FILE LIBRARY 
For options 2 to 35: TEAM? APP SRC AFLIE 
Resequence member (Y N): Y Start: 1,60 Increment: 1.00 


For options 1 to 4: 
Return to member List (Y N): 


For options i to 6: 
Frint source listing (¢Y N): N 


TOTAL RECORDS ADDED CHANGED DELETED SYNTAX ERRORS LEFT 
24 24 2 





Figure 28 
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31. 


32. 


33. 


35. 


36. 


37. 


You are now ready to compile the program, option 3. Make 
entries as follows: 


a. Key the number '’3" to the right of “OPTION”. 

b. Key your team character to the right of ‘“TEAM#”’. 

c. Press the “ENTER” key. 

During the compilation, input will be inhibited at your work station 
(indicated by a square of light on the right side of the display—next 


to a printed label ‘Input Inhibited’’). Your keyboard will be locked 
at this time. 


When the light goes out, your work station will be ready to accept 
the next request, which will be to execute the program, option 4. 
Make the following entries at this time: 


a. Key the number “4” to the right of “OPTION”. 
b. Key your team character to the right of ““TEAM#”. 
c. Press the “ENTER” key. 


. Follow the instructions on the ‘‘VENDOR MASTER INQUIRY” 


display. The following vendor numbers are valid entries: 


00221 
00714 
05075 
10504 
11002 


Be sure to press the “ENTER” key after keying the vendor number. 
Enter an invalid vendor number (95137) to verify that the error 


message appears. When the error message is displayed, press the 
“ERROR RESET” key to free the keyboard. 


When satisfied with results of inquiries, bring program to end-of- 
job by: 

a. Pressing “‘CMD” key. 

b. Pressing the ‘1’’ key at the top of the keyboard. 

This is the end of the familiarization exercise, therefore, you should 
““sign-off”’ by selecting option 5. 

a. Key the number ‘’5” to the right of ““OPTION”’. 

b. Press the “ENTER” key. 


f Accounts Payable Field Reference File 


§714UT1 RO3 MOO 810708 SEU SOURCE LISTING 
SOURCE FILE: APWSRC eAPWINSTLIB MEMBER: APPFREF 
SEQNBR eee eee 1 eee ee@e 2 eee @eee 3 eee eee 4 eee eee 5 eee0a eee 6 eee eee T @¢e eee 
100 Az 
200 Acs FIELO REFERENCE FILE FOR ACCOUNTS PAYABLE 
300 A%s STUDENT EXERCISES 
400 AS 
500 A R REFFMT TEXT(*FLELO REFERENCE FILE') 
600 At 
700 Ae® FIELDS USED IN MULTIPLE RECORDS 
800 AS 
900 A VNONPR 5 0 TEXT(*VENDOR ID NUMBER?) 
1000 A COLHDGU' VENDOR" *NUMBER®) 
1100 A EDTCDE(2) 
1200 A OEPTNO 3 0 TEXT( "DEPARTMENT CHARGED?) 
1300 A CULHOG(*DEPARTMENT® *NUMBER®) 
1400 A EOTCOE(Z) 
1500 A ACTCD 1 TEXT(*A=ACTIVE D=DELETE S=SUSPEND®) 
1660 A COLHDGI*ACTIVE® *RECORD® *CODE*) 
1700 Ae 
: 1800 Aes FIELDS IN VENDOR MASTER RECORD 
1900 Ax 
2000 A VNONAM 25 TEXT(* VENDOR NAME®) 
2100 A COLHDG(*VENDOR® *NAME®) 
2200 A VNDAD1 25 TEXT(*ADORESS LINE 1°) 
2300 A COLHOG( "ADDRESS LINE 1°) 
r 2400 A VNOAD2 25 TEXTU*ADORESS LINE 2°) 
2500 A COLHOG( *ADORESS LINE 2°) 
2600 A VNDAD3 25 TEXTI*ADDRESS LINE 3°) 
2700 A COLHDG( "ADDRESS LINE 3°) 
2800 A VNDOZIP 5 0 TEXT(*ZIP CODE") 
2900 A COLHDGI*ZIP* "CODE*) 
3000 A EOTCOE(Z) 
3100 A VNDACO 3 0 TEXTU*AREA CODE®) 
3200 A COLHOG("AREA® "CODE®*? 
3300 A EDTCNE(Z) 
3400 A VNOPHN 7 O TEXT(*PHONE NUMBER®) 
3500 A COLHDG( * PHONE") 
3600 A EOTCDEIZ) 
3700 A VTRMPC 3°43 TEXT( "NORMAL PROMPT PAY DISCOUNT %*) 
3800 A COLHDGI* TERMS? *%*) 
3900 A EOTCOEIZ) 
4000 A VTRMDA 2 0 TEXT "NORMAL NOs OF DAYS FOR TERMS*) 
4100 A COLHOG(*TERMS® "DAYS") 
4200 A EOTCDE(Z) 
4300 A VNDCLS 2 0 TEXT(*VENDOR CLASS") 
4400 A COLHOGE*CLASS") 
4500 A EDTCOEIZ) 
4600 A VANDSLS 25 TEXTU*VENDOR SALESMAN®) 
4700 A COLHOG("SALESPERSON® ) 
4800 A DCTMTD 7 2 TEXT¢(*DISCOUNT TAKEN THIS MONTH!) 
4900 A COLHOGI*OISCOUNT® *"TAKEN® MTD") 
5000 A OCTYTD 9 2 TEXTU*OISCOUNT TAKEN THIS YEAR °) 
§100 A COLHOGI*OESCOUNT® *TAKEN® YTD") 
§200 A PCHMTD 9 2 TEXTU"PURCHASES THIS MONTH} 
5300 A COLHOGE®*PURCHASES® "MTD') 
5400 A PCHYTD ll 2 TEXT( "PURCHASES THIS YEAR®) 
5300 A COLHOGI*PURCHASES® 'yYTO") 
§600 A BALOWE 9 2 TEXT(*BALANCE OWED") 
5700 & COLHOG("BALANCE® "OWED"? 
5800 A SRVATG l TEXT{ "SERVICE RATING®) 
5900 A COLHOGI'SEAVICE*® RATING") 
6000 A DELRTG 1 TEXT¢ "DELIVERY RATING) 
6100 A COLHOG! "DELIVERY" *RATING") 
" 6200 A SCHCOD LOA TEXTI "SEARCH CODE®) 
6300 A CQOLHOG('SEARCH' "CQDE') 
6400 A CHECK{ME) 
6500 A COMNTS 25 TEXTI"COMMENTS ABGUT THIS VENOOR') 
6600 A COLHOG( "COMMENTS ABOUT® *VENDOR*) 
6700 A? 
e 6800 AS® FIELOS USED IN TRANSACTION RECORO 
6900 Ax 
7000 A INVNBR ao TEXT{ "VENDORS INVOICE AMOUNT®) 
7100 A COLHDG(* VENDOR' "INVOICE" *NUMBER®) 
7200 A DATREC 6 O TEXTU'DATE RECEIVED?) 
7300 A COLHOG(I*OATE® "RECEIVED') 
7400 A EDTCDEIY? 
7500 A MERCH 7 2 TEXT! *MERCHANDISE AMOUNT®?) 
7600 A COLHOG( *MERCHANOISE® *AMOUNT®) 
7700 A NET 7 2 TEXT(*NET AMOUNT PAID®) 
7800 A COLHOG(*NET*® *AMOUNT® *PAID®) 
7900 A STATUS 1 TEXT" ESENTERED T=TO PAY D=DELETE + 
80oo0 A P=PAID*) 
8100 A COLHOGI*STATUS' "OF*® *RECORD') 
8200 A OTPAIO 6 O TEXTU*DATE PAID®) 
8300 A COLHOG(*OATE® *PAID®) 
8400 A EDTCDEtY) 
8500 A CHECKS 6 O TEXT(*CHECK NUMBER®*) 
8600 A COLHDG(*CHECK*® *NUMBER®) 
8700 A EDTCDEIZ) 


zo ees —EnO OF SOURCE RF & % % 


45 


DATA FILE WORK SHEET 
APPLICATION: ACCOUNTS PAYABLE FILE NAME APPVEND 


PHYSICAL [x] 
LOGICAL [ ] 





IF LOGICAL, PHYSICAL files used: 





Page_1 of_2_ eee ae ee eee ee ee eee 


pec. |*fegy” | COMMENTS 
VENDOR MASTER 

VENDOR I.D. 

(nla 

ADDRESS 

LINE 1 | 

ADDRESS 

LINE 2 

ADDRESS 

LINE 3 

ZIP CODE 

AREA CODE 

| PHONE NO. | 

TERMS DISC.% 


TERMS-DAYS 





d 


FORMAT NAME] FIELD NAME 


VENDMAST 


LENGTH TYPE 


VNDNBR 


VNDNAM 


a 


NO 
wn 


VNDAD 1 


No 
wn 


VNDAD2 


No 
wn 


< 
: 
2? 
7 | 
be ~ Pi nT nM] wf] nan] wf] uo Wn 


tO 
wn 


VNDAD3 


VNDZIP 


VNDACD 


VNDPHN 


< 
: 
QQ 


CLASS 


ACTIVITY 
A=ACTIVE 


S=SUSPENDED 


D=DELETE 


| SALESPERSON 
|DISCOUNT MTD | 


VNDCLS 


ACTD 


ea) 


VNDSLS 


DCTMTD 


DCTYTD 


|DISCOUNT YTD | 


PCHMTD 


eff] | | feted ]]ee PPL] iz 


ae 
c 
‘?. 
7 
DS 
) 
es 
es) 
= 
re 
O 


ke 
tg 
5 
Q 
ae 
D 
”n 
ty 
n 
rw! 
= 
Oo 


PCHYTD 


a 
a 


> 


DATA FILE WORK SHEET 
APPLICATION: _ACCOUNTS PAYABLE FILE NAME APPVEND 
PHYSICAL 


LOGICAL C IF LOGICAL, PHYSICAL files used: 


Page_2 of_2_ 





TI 
(oe) 
ee) 
=< 
> 
=| 
Z 
> 
= 
m 
n 
m 
[- 
O 
Z 
> 
= 
m 


LENGTH | TYPE pec. {KEY FLD.) Conments 
(SEQ.) 

BALANCE OWED 

RATING A - F 

RATING A - F 

ADDITIONAL 

SEARCH CODE 


BALOWE 


ORVRTG 


DELRTG 


ea) 


COMNTS 


4 
© 


SCHCOD 


| - | 
ef oe 


> 
~ 


DATA FILE WORK SHEET 
APPLICATION: _ACCOUNTS PAYABLE FILE NAME __APLVEND 
PHYSICAL [_] 


i . APPVEND 
LOGICAL IF LOGICAL, PHYSICAL files used: 





KEY FLD. | 
(SEQ.) COMMENTS 


KEYED ON 
VENDOR I.D. 









DATA FILE WORK SHEET 
ACCOUNTS PAYABLE FILE NAME APPTRANX 








APPLICATION: 
PHYSICAL 


LOGICAL a IF LOGICAL, PHYSICAL files used: 






KEY FLD. 


(SEQ,) COMMENTS 
VENDOR 
INVOICES 
ae VENDOR I.D. 
INVOICE NO. 
DATE RECEIVED 
2 MERCHANDISE 
AMOUNT 
ce 
E=ENTERED 
T=TO BE PAID 





LENGTH TYPE DEC. 


O 
ms] 
= 
> 
+ 
2 
> 
= 
m 
TI 
m 
c 
Oo 
2 
> 
= 
m 


PAYBLE 


VNDNBR 


INVNBR 


DATREC 


MERCH 


STATUS | 


DTPAID 


CHECK# 


CHECK NUMBER 
DEPARTMENT 
CHARGED 


DEPTNO 


NOTE: THESE|FIELDS AR 


EFERENCE FILE APPFREF AND | 


PAYABLE FIELD R 


SHOULD BE CREATED USING 


FUNCTION. 


ea] 
| 


is 
Oo 


DATA FILE WORK SHEET 
APPLICATION: _ACCOUNTS PAYABLE FILE NAME __APLTRANx 


PHYSICAL| ] 


I : APP 
LOGICAL IF LOGICAL, PHYSICAL files used: TRANX 





FORMAT NAME! FIELDNAME | LENGTH | TYPE 
i 
vom | 


*SELECT RECORDS WITH YQTATUS 


KEY FLD. 
(SEQ,) COMMENTS 
INVOICES 









DATA FILE WORK SHEET 
ACCOUNTS PAYABLE FILE NAME __APLVANLx 








APPLICATION: 


PHYSICAL [_] seus 
LOGICAL IF LOGICAL, PHYSICAL files used: ADPTRANX 


TYPE oe EP] commen COMMENTS 





Page _1 of _1. 


*SELECT PAYA 


LENGTH 


BLE RECOR 


al 
m 
- 
O 
Zz 
> 
<= 
| m 


ta 
_ 


DATA FILE WORK SHEET 
APPLICATION: _ ACCOUNTS PAYABLE FILE NAME APLSCHVN 


PHYSICAL [_] 


i ‘ APPVEND 
LOGICAL [x] IF LOGICAL, PHYSICAL files used: 





Page_1 of 1 


FORMAT NAME FIELD NAME LENGTH TYPE 


SsCHCOD 


in 


2 


DISPLAY FILE — APDENTx 
SCREEN LAYOUT 


RECORD NAME: APENTR 
eee 


INPUT FIELDS: 


ORDER NAME 
1 VNDNBR 


INVNBR 
DATREC 
MERCH 


DEPTNO 


INDICATORS: 


oaneulun pe 


NNN NN PRR eee ee ee 
FUNnNPOCOnNO WSF WN O 


eee eee 1 eee eee 2 eee eee 3 eet eee 4 eee ef@e 5 eee eee 6 @eae e¢ee T eee eee 8 


SECRETE EEEHKEEERSSKSEESES SSE EERE ERE ERE SEEKS EKEEESREEEEEKEEESEEESEEEEEREEESE 


ACCOUNTS PAYABLE INVOICE DDDDDD TT:TT:TT 


VENDOR NUMBER 2 2 2 ee 
INVOICE NUMBER ee 
DATE RECEIVED ee 

MERCHANDISE AMOUNT 
DEPARTMENT CHARGED 


ene een = 


een eeerraeneee eee nee ee an et 


PRESS ENTER TO CONTINUE COMMAND KEY 12 - END OF JOB 


d 


(ERROR MESSAGE “INVALID VENDOR NUMBER* WHEN /WOICATOR 50 Sow)" 


* 
x 
* 
* 
* 
* 
* 
i 
s 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
SEREKEERAAKEEEEEKEEESREREEEESEEEEEREEREREEEEREEESEEEERESESEEEEEEEEEEEREEEEEEESER EEE TERED 


POS COMMENTS FROM APPFREF 
46 "VENDOR ID NUMBER 


43 "VENDORS INVOICE AMOUNT 
43 "DATE RECEIVED 
43 "MERCHANDISE AMOUNT 


£6 "DEPARTMENT CHARGED 


ATTENTION KEY 12-99 





53 


DISPLAY FILE APDSRCH 


SCREEN LAYOUT 


H/GH 


INTEMS/TY 


54 


RECORD NAMES: 


SCHCTL 


SCHRCD 









SCHCTL" 


SCHRCD ¢ 16 






INPUT FIELDS: 


ORDER NAME 
1 SFLPAG 










2 CODE1 








30-ROLLUP KEY 
PRESSED 


INDICATOR USAGE: 


99-ATTN KEYL N55 
75 
76 
TT 
55 





* 
x 
* 
* 
* 
* 
x 
* 
x 
* 
* 
* 
* 
x 
* 
* 
* 


2 eee 


eee eee 1 eee eee 


ENTER CHARACTERS FOR SEARCH 


FIELD EXIT KEY TO SEARCH 
CMD KEY 1 - END OF JOB 


VENDOR NAME 

VNQNAM 
ooo0000000000000000000000 
ooooooco00000000000000000 
oo0o0000000000000000000000 
ooooo00000000000000000000 
onoooo0000000000000000000 
ooooocoo00000000000000000 
oooo000000000000000000000 
ooocooo0000000000000000000 
ooo0000000000000000000000 
oooocooco0c000000000000000 


ROLLUP KEY CONDITIONING 
SUBFILE DISPLAY 

SUBFILE DISPLAY CONTROL 
SUBFILE CLEAR 
THE *'+'*! SIGN 





3 eee eee 


PPPS SESS T LES ELE REST ETERS LE SEE TET ETT ET ETS RS RE tt St SS 


SFLPAG 


COMMENTS 
NON-DISPLAY, 





REVERSE IMAGE 






4 eee eee 5 


VENDOR SEARCH 


SALESPERS 
VNOSLS 
oooo000000000000000000000 
ooooo00cc0000000000000000 
oocococgooo000000000000000 
oooo000000000000000000000 
ooo0000000000000000000000 
oo00000000000000000000000 
oooo0000000000000000000000 
oo00co0000000000000000000 
ooo0000000000000000000000 
oooo0c00000000000000000000 





AND PROTECTED. 


NAME LENGTH 
N 2,0 


6 eee 


eee 7 eee eee 8 
SRO iO Bo a OR a a a ek 


ZIP NUMBER 
VNOZIP VMDNBR 


66666 
66666 
66666 
66666 
66666 
66666 
66666 
66666 
66666 
66666 


DEFAULT TO SUBFILE PAGE-SIZE. 


FIELD EXIT KEY MUST BE PRESSED TO GO TO NEXT FIELD 





x 

* 

x 

* 

* 

* 

* 

x 

x 

* 

* 

66666 * 
66666 * 
66666 * 
66666 * 
66666 * 
66666 * 
66666 * 
56666 * 
66666 * 
66666 * 
* 

* 

* 

x 


396 Me i i i a a a a Re a a a a 2 a a ae a a a a a a a ae a a a he a a Re a a a a a a ate a a a a ae a a ae ae a a a a ae ak a ak ae 2 













SPECIAL OUTPUT FIELDS: 


COMMENTS 


RELATE TO SFLRCDNBR, 


HIDDEN: 


OUTPUT 





Program Description—APR 20x/APC20x 
should: 


1. 


Write the accounts payable entry screen (APDENT Rx) to the work 
station and read it back. 


If the operator pressed command key 12, end this program. This 
will return you to the command entry screen. 


If the command key 12 was not pressed, it is assumed that the 
required data fields were entered. 


Verify that the vendor number exists in file APL VEND. 


If the vendor is not found, write the APDENT x screen with the 
indicator on to cause an appropriate error message to be displayed. 


If the vendor is found, write the entered data and a status code of 
“E" to the APL TRAWNx file and go to step 1. 
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Sub-Program Description—APR210/APC210 


This program is called by the Accounts Payable Entry Program— 
APC20x/APR20x and passes two parameters: 


1. The vendor number to be checked. 
2. An indicator to be returned if the vendor is not found. 
This program uses base file APLVEND, the vendor master file. 


When called, this program will access APL VEND, turn on an indicator 
if the requested record is not found, and return to the calling program. 
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Program Description—APR30x/APC30x 
should: 


1. 


Read a vendor master record and calculate the average discount 
percent taken for purchases month-to-date (field ‘‘A’’) and year-to- 
date (field ‘’B”’). 


Read all unpaid invoice records for the same vendor and calculate 
the total of all current unpaid purchases (field ‘‘C’’). 


When the vendor number changes, calculate final totals of purchases 
and discounts as follows: 


TPM = _ Total ‘‘paid’’ purchases MTD 
TPU = _ Total ‘‘unpaid’’ purchases MTD 
TPY = _ Total ‘‘paid’’ purchases YTD 
TDM = _ Total discount taken MTD 
TDY = _ Total discount taken YTD 


At end-of-job, calculate the average discount percent taken based 
on the final totals. 


MPC = _ Average month-to-date discount 
= Average year-to-date discount 
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Program Description—APL30x 
APL30x should: 
1. Override a data base file using the following command: 
OVRDBF FILE(APPTRANX) TOFILE(APPTRANx) LVLCHK(*NOQ) 


2. Override a print file using the following command: 
OVRPRTF FILE(APCHECKS) TOFILE(QPRINT) 
3. Cause the following programs to be executed. 
a. APR250 
b. APR30x-or-APC30x 
c. APR350 
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STL4UTL RO3 MOO B10708 SEU SOURCE LISTING 


SOURCE FILE: APPSRC.APLIS MEMBER: APC200 


SEQNBReee 


109 

200 

300 

400 

500 

400 

TOO 

80c 

ane 
1a00 
1Lo9 
1200 
1309 
1400 
1500 
1600 
1700 
1LAG0 
1960 
2060 
2100 
2200 
2300 
2400 
2500 
2669 
2700 
2800 
2900 
3000 
3106 
3200 
3300 
3400 
3500 


wee 1 coe cee 2 see cee 3 coe cee 4 cee eve 5 eee cee & wee eee 


IDENTIFICATION DIVISION. 
PROGRAM-IDe APC2Z0- 
ENVIRONMENT OIVISTION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. I[HM-S38- 
OBJECT-COMPUTER. IBM-S38. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 
SELECT APLTRAN-FILE ASSIGN DATABASE-APLTRAN ORGANIZATION 
INDEXED ALCESS RANDOM RiECURU VNDNBR OF PAYBLE. 
SELECT APOENTR-FILE ASSIGN WORKSTATION-APDENTR 
ORGANIZATION IS TRANSACTION. 
SELECT APLVEND=FILE ASSIGM DATABASE-APLVEND ORGANIZATION 
INDEXED ACCESS RANDOM RECORD VNONBR OF VENDMAST. 
Data DIVISION. 
FILE SECTION. 
FQ APLTRAN-FILE LABEL RECORD IS STANDARD. 
Ol ODBFILE. 
COPY DDS-PAYBLE UF APLTRAN REPLACING ==SCHECKS== BY CHECKS. 
FO APOENTR-FILE LABEL RECORD IS OMITTED. 
Ol DISPLAY-FILE.’ COPY DOS-APENTR OF APDENTR. 
FD APLVENO-FILE LABEL RECORDS STANDARD. 
Ql APLVENDe COPY DOS-VFNOMAST OF APLVENO-APLIB REPLACING 
==CHECKS== BY CHECKS. 
PROCEOURE DIVISTUN. 
BEGIN. GCPEN [-0 APLTRAN-FILE APDENTR-FILE INPUT APLVEND-FILE. 
LOOP. WRITE OISPLAY-FILE FORMAT 1S “APENTR", 
READ APOENTR-FILEs TF IN99D = S"1" THEN GU QUIT. 
MOVE 8"9" TO IN5Q. MOVE VNOMNBR OF APENTR-I Tv VNONDR OF 
VENDMASTe 
READ APLVENO-FILE INVALTD MOVE B"1" TO INSU GO LOOP. 
MOVE “E* TO STATUS-DDS. MOVE CORR APENTR-I TO PAYBLE. 
MOVE ZERO TO NET OTPAID CHECKS DEPTNO OF PAYBLE.} 
WRITE OSFILE.- GO LOOP. 
QUIT. CLOSE APLTRAN-FILE APDENTR-FILE APLVEND-FILE. STUP RUN, 


ou © & 2 —€ ND OF SQOURCE®R & BS 
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ST714UTL ROS MOO 810708 
SOURCE FILE: APPSARC.APLIB 
SEQNBRe eee coe 1 coe cee 2 eve 


100 H 

200 FAPLTRAN O E 
300 FAPDENTR CF €E 
400 FAPLVEND IF € 
500 Cc LoapPp 
600 
700 
800 
900 
1000 
1100 
1200 
1300 
1400 


99 
99 


VNDNBR 


N50 


AAMANRAAAA 


END 





SEU SGURCE LISTING 


MEMBER: APR200 


La | 3 @eooe eee 4 eee e08 5 eee e080 6 eee e006 7 


K OISK 
WORKSTN 

K OISK 
TAG 
EXFMTAPENTR 
SETON La& 
GOTO END 
SETOF 50 
CHAINAPLVEND 50 
MOVE "E* STATUS 
WRITEPAYBLE 
GOTO LuOoP 
TAG 


6s 6e¢8 END OF SOURCER B® & OS 
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ST14UT1 RO3 MOO 810708 SEU SOURCE LISTING 


SOURCE FILE: APPSRC -APLIB MEMBER: APC210 
SEQNBRo see ees l eee esa 2 see eee 3 eee eee 4 eee eee 5 eee eee 6 eee eee 7 

100 IDENTIFICATION OIVISION. 

200 PROGRAM-ID. APC210. 

300 ENVIRONMENT OIVISION. 

400 CONFIGURATION SECTION. 

500 SOURCE-COMPUTER. I6M~S38- 

600 OBJECT-COMPUTER. ITBN-S38. 

700 INPUT-OUTPUT SECTION. 

800 FILE-CONTROL. 

900 SELECT APLVEND-FILE ASSIGN DATABASE-APLYVEND ORGANIZATION 
1000 INDEXED ACCESS RANDOM RECORD VNDNBR OF VENDMASTe 
1100 DATA DIVISION. 

1200 FILE SECTION. 

1300 FD APLVEND-FILE LABEL RECOROS STANDARD. 

1400 O1 OSFILE. COPY DOS-VENDMAST OF APLVENO-APLIB REPLACING 
1500 ==CHECK#@== BY CHECKS. 

1600 LINKAGE SECTION. 

1700 OL VNONBR-LINK PIC 9151 COMP-3. 

18090 OL SWITCH-LINK PIC le 
1900 PROCEDURE OIVISTON USING VNONBR-LINKse SWITCH-LINKe 
2000 BEGIN. OPEN I-0 APLVENO-FILE. MOVE B"0" TO SWITCH=LINK. 
2100 MOVE VNONBR-LINK TO VNONBR OF VENOMAST. 

2200 READ APLVEND-FILE INVALIO MOVE B™1" TO SWITCH-LINK. 
2300 QUIT. EXIT PROGRAM. 


oo oe e END OF SOURCE 3 #8 
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S7T14UT1 RO3 MOO 810708 SEU SOURCE LISTING 


SOURCE FILE: APPSRC.APLIB MEMBER: APR210 





SEQNSRees ese 1 eee eee 2 eee eee 3 eee ete 4 eee eee 5 eee eee 6 eee eee T 


100 H 

200 FAPLVEND IF E K OrSK 

300 C ENTRY PLIST 

400 C PARM KEY 50 
500 C PARM SIN9O SWITCH 1 

600 C KEY CHAINAPLVEND 90 
TOO Cc RETRN 


ao e@eacenOD OF SOURCES BBG & 


ST14UT1 RO3 MOO 810708 


SOURCE FILE: 


SEQNBR eee 


100 
200 


2800 
2900 


3100 
3200 
3300 
3400 
3500 
3600 
3700 
3800 
3900 
4000 
4100 
4200 
4300 
4400 
4500 
4600 


eee l eee e 


H 
FAPPTRANXIP 
FAPLVEND UF 


FAPCHECKSO 
TPAYBLE 

I 

Cc NL 
Cc 

Cc 

C 

Cc 

Cc 

Cc 

C 

Cc 

Cc 

C 

C 

Cll 

cll 

Cll 

cCL1 

CLING1 

Cll 
UAPCHECKSN 
0 OR 
Q 

0 

0 

0 

O T 
0 

U T 
0 

0 T 
i?) 

0 T 
0 

0 

0 

) T 
0 

Q T 
0 

0 T 
0 


1 


APWSRC -APWINSTLIBB 


e 2 eee ees 


SEU SOURCE LISTING 


3 e@e eee 


MEMBER: APR250 


4 eee e080 5 eee eee 6 een eo 


E DISK 
E K UISK 
F 0132 OF PRINTER 
VNONBR VNONBRL 1 
GOTO NORM 
Z-A000 CHKTOT 192 
Z-ADDO MERTOT 92 
aoo 1 CHECKs 60 
NORM TAG 
STATUS CABNE‘T® LAST 2525 
MOVE UDATE DOTPAIO 
MOVE *P® STATUS 
ADD MERCH MERTOT 
Z-ACDOMERCH NETAPT 92 
ADD NETAMT CHK TOT 
LAST TaG 
CHKTOT C ABEQO LSTLi 25 
VNONBR CHAINAPLVEND Ol 
ADD MERTOT PCHMTD 
ADD MERTOT PCHYTOD 
UPDATVENDMAST 
LSTLIL TAG 
1c? NLP LIN2S 
1 NIPNLIN2ZS 
INVNSR 9 
DATRECY 18 
MERCH 1 38 
NETAMT1 81 
1924 LIN25 
CHKTOT1 81 
29 LIN25 
CHECK? B82 
1 LIN25 
VNDNAM 35 
1 LIN25 
VNOAD1 35 
UDATE Y 55 
CHKTOT1 80 "$s? 
1 LIN25 
VND AD 2 35 
1 LIN25 
VNOAD3 35 
1 LIN25 
VNDZIP 35 


s 236% END OF 


SQURCE*® © 8 Be 


T 
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STL4UTL RU2 MOO 810302 


SOURCE FILE: 


SEQNBReeee coe 1 


64 


100 

200 

300 

400 

500 

600 

700 

800 

900 
1000 
1100 
1200 
1300 
1400 
1500 
1600 
1700 
1800 
1900 
2000 
2100 
2200 
2300 
2400 
2500 
2600 
2700 
2800 
2900 
3000 
3100 
3200 
3300 
3400 
3500 
3600 
3700 
3800 
3900 
4000 
4100 
4200 
4300 
4400 
4500 
4600 
4700 
4800 
4900 
5000 
5100 
$200 
§300 
£400 
5500 
3600 
57U0 
5800 
5900 
6000 
6100 
6230 
6300 
6400 
6500 
6600 
6700 
6800 
6900 
7900 
7100 
7240 
7309 
74U0 
7500 
7600 
TT09 
TAUO 
7900 


SEY SOURCE LISTINGS 


APCSRKC eAPWINSTLIB 

eee eee 2 eee eee 3 eas eeu 
H 
C Ll Z-a0D00 
C O02 GOTO UNPAID) 
C PCHMTO CABEQO 
Cc OCTMTD DIV PCHMTD 
C ATEMP MULT 100 
C NE XT TAG 
C PCHYTD CABEQO 
C OCTYTO DIv PCHYToO 
C BT EMP MULT 100 
C NEXTL TAG 
C GOTO OuT 
C UNPAID TAG 
C ADD MERCH 
c OuT TAG 
CLL ADD PCHMT) 
CLL 40D OCTMT) 
CLI ADO PCHYT) 
cli ADD OCTYyTv 
ctl ADO C 
CLR TPM CABEQO 
CLR TOM DIV TPM 
CLR MPCTMP MULT 100 
CLR NEXT2 TAG 
CLR Tey C ABE QO 
CLR TOY DIV TPY 
CLR YPCTMP MULT 100 
CLR NEXT3 TAG 
JOPRINT H 202 OF 
0 OR 1p 
0 
8] H tl OF 
a] OR 1P 
U 
0 
J 
OQ 
8) H uk OF 
0 OR 1P 
0 
O 
0 
a] 
0 H 2 OF 
Q OR 1P 
0 
's] 
u 
Q 
Q 
0 
0 
0 
Q T 2 Ll 
re) VNONBR 
0 VNONAM B 
0 VTRMPC4B 
0 VTRMDAZ 8B 
Q 
U PCHMTDLB 
Q OC TYTOLB 
0 A 3B 
u PCHYTO1B 
Q OCTYTOLS 
8) B 38 
0 C 1B 
U 
U T 22 LR 
?) 
0 TPM l 
fp) TPY L 
u TPu \ 
U T LR 
Uv TDM i 
Oo MPC 3 
0 ToY 1 
U vec 3 
a 
oO 

x 3s S$ © 6 ere 


ME MBER: 


) 


4 #ee oe86€@ 5 eee 


92 


NEXT 


ATE“P 


“2 


NEXT 1 


BTE“P 


Cc 


TPM 
TDM 
TPY 
TOY 
TPU 


42 


Ll2 

92 
122 
102 
ll2 


NEXT2 


MPCT MP 
MPC 


42 


NEXT3 


YPCT MP 
YPC 


78 


13 
75 
1l2 
130 


76 
113 
l2T 


25 
45 
58 
TT 
91 
114 
129 


32 
37 
41 
38 


70 
TT 
93 
107 
114 
130 
46 


3T 
59 
93 
130 


70 
77 
107 
114 
78 
115 


nN 


42 


44H 


44H 


44H 


44H 


aPR300 


eee 6 


O1/27/81 10:244:35 


eee 7 eee eee 8 eee e8@6 9 eee @#@ee 


APR300 


*VENODIR PURCHASE ANALYSIS* 


*“™ONnTH- 


«ge 
"VE 


*VENDOR® 


*JESCOUNTS 
*JISCIUNTS 


*JNPAID® 


*NUMBER *® 


TO-DO 


uU-OA 
tT 


AVG’ 
AVG* 


*VENDIR NAME® 

*YORMAL TERMS* 
*PURCHASES® 
DIS%° 
*2 URCHASES® 


*TAKEN 


* TAKEN 


J 


*PURCHASES®* 


eye 


*AYS® 


*F TNA 


ege 
exe 


F 3 3 


L 


Isze 


TOTAL 


AT 


T €° 


5S -e 


WrCES* &€ 6 & 


0 






J 


pe 


SOURCE FILE: 


APWSRC.APWINSTLIB MEMBER: APC300 


SEQNBRF cece eee 1 eee aee 2 ees eee 3 eee eee 4 @ee eee 5 eee eee 6 eee eee 


100 

200 

300 

400 

500 

600 

700 

860 

$00 
1000 
1100 
1200 
1300 
1400 
1500 
1600 
1700 
1800 
1900 
2000 
2100 
2200 
2300 
2400 
2560 
2600 
2Tuc 
2806 
2900 
3000 
3190 
3200 
3300 
3400 
3500 
3600 
3760 
3800 
3900 
4009 
4100 
4260 
4300 
4400 
4500 
4600 
4700 
4AI0 
4900 
5000 
5100 
5200 
5300 
5400 
5500 
5600 
5700 
5800 
5900 
6000 
6100 
6200 
630C 
6400 


IDENTIFICATION DIVISION. 
PROGRAM-I0D. APC300. 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. IBM-S36. 
OBJECT-COMPUTER. I6M-S38. 
SPECIAL-NAMES. I-O-FEEDBACK IS Ple 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT APLVANL ASSIGN TO DATARASE- 


SELECT PRINTOUT ASSIGN TO FORMATFILE-APC30PRT. 
DATA DIVISION. 
FILE SECTION. 
FO APLVANL LABEL RECORN IS STANDARD. 


Ol De COPY DOS-ALL-FOKMATS UF REPLACING ==CHECK#== BY 


FD PRINTOUT LABEL RECURD IS STANDARD. 
OL PR. COPY DDS-ALL-FURMATS OF APC3UPRT. 
WORKING-STORAGE SECTION. 


Ol cC PIC 9(9)V9t2) COMP-3 VALUE IS O- 

Ol TPM PIC 9ULLIVSI2) COMP-3 VALUE IS O.1 
Ol TOM! PIC 919)V9(2) COMP-3 VALUE IS 0. 
Ul TPYl PIC 9ULZIV9I21 COMP-3 VALUE IS Oo 
vl “TOYl PIC S9(LOPV9I2) COMP-3 VALUE IS 0. 
ol TPUL PIC S9tLIIVOL2]) COMP-3 VALUE IS O02 
o MPCTME PIC 9f41V9(4) CUMP-3 VALUE IS 0. 
vl MPCl PIC 9(4)V9(2)) COMP-3 VALUE IS O07 
31 YPCTMP PIL 9l4I1V9(4) COMP-3 VALUE IS O« 
Jl YPCL PIC 964)V9(2) CUMP-3 VALUE IS O./ 
vl ATEMP PIC 9E4IV9II4) COMP-3 VALUE IS O. 
Ol AA PIC 9(4)V902) COMP-3 VALUE IS Oc 
Ol BTEY“P PIC 9(41V9(4) COMP-3 VALUE IS O. 
Ol BAR PIC 9(4)V9(2) COMP-3 VALUE IS OQ. 
ol Ole 


OS FILLER PIC X1144). 

v5 LiO PIC S99 USAGE CUMP-4. 
77 UVFL-LINE PIC S99 USAGE COMP-4& VALUE IS 60-6 
PROCEDURE DIVISIUNe 
BEGINe CPEN INPUT APLVANL OUTPUT PRINTOUT. 


HEADINGS. wRITE PR FURMAT "HEADINGI™ WRITE PR FORMAT "HEADING2" 


WRITE PR FORMAT “HEADING3™ WRITE Pk FORMAT “HEADINGS. 
LPe READ APLVANL END GO WUIT. IF O6-FORMAT-NAME = “PAYBLE” CO 
UNPe MUVE CORR VENOMAST TO WORKREC-O. IF PCHMTO OF D = O 
GN NEXTLe COMPUTE ATEMP ROUNDED = DCTMTO OF D ¢/ PCH*¥TD 
GF DO. COMPUTE AA = ATEMP * 100.6 
NEXTL. IF PCHYTO OF D = G THEN Go TO OUT. 
COMPUTE 3TEMP ROUNDED = UCTYTD NF v / PCHYTO OF De 
COMPUTE BB = BTIEMP * 160. 
QOUTe ADD PCHMTD OF D TO TPAM1le AND DCTMTD OF D TO TOML. 
AND PCHYTO OF O TO TPY1L. ADD ONCTYTV OF D TO TOYl. 
MOVE AA Tf) Ae MOVE BB TO fie MOVE CC TO Ce WRITE PR FORMAT 
“WORKREC". MOVE 0 TO CCew ACCEPT O1 FROM P1l FOR PRINTOUT. 


IF LNO > 59 PERFORM HEADINGSe GO LPe 


QUIT. IF TPM1L = 0 GO NEXT2. COMPUTE MPCTMP ROUNDED = TDM1 / TPM1L 


COMPUTE MPCL = MPCTMP + 1006 
NEXT2. MOVE TPM1 TO TPM OF LR1-O5. MOVE TPYL TO TPY OF LR1-O- 
MOVE TPU1]L TO TPU OF LR1-O65. WRITE PR FOXMAT "LR1*, 


IF TPY1L = 0 GO ENDITe COMPUTE YPCTMP ROUNDED = ToYl / TPYLe 


COMPUTE YPCL = YPCTMP * 100-6 
ENDIT. MOVE TOML TO TOM OF LK2-O-. MOVE MPC1 TO MPC OF LR2-0. 
MOVE TOY1L TO TOY OF LR2-O. MOVE YPC] TO YPC OF LR2-O. 
WRITE PR FORMAT “LR2“. CLOSE APLVANL PRINTOUT. STOP RUN} 
UNP. ADD MERCH TO CC TPUL. GO LPe 


see = Ff END OF SOURCE © 8% 8 
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SEQNBRe ea, 


100 

200 

300 

400 

500 

600 

700 

800 

900 
1000 
1100 
1200 
1300 
1400 
1500 
i6uo0 
1700 
1800 
1900 
2060 
2100 
2200 
2300 
2400 
2560 
2600 
2700 
2800 
2900 
3000 
3100 
3200 
3300 
3400 
3500 
3600 
3700 
3800 
3900 
4000 
4100 
4200 
4300 


>PrPrPrprrrrrPrrprPprprprprprrprprprrrpryrrprrprkttrPrrprrrYrrprrrprrprrp>r rrp p 


1 


ee 2 eee eee 3 eee eee 4 eee eee 5 ees eee 6 eee eee 7 
R HEAOINGL 
SKIPB(4) 
55*VENDOR PURCHASE ANALYSIS* 
R HEAODING2 SPACEB(2) 
51°MONTH-TQ-OAT E* 
*14'Y EAR~ TO- OAT E 
*05'C URRENT! 
R HEADINGS SPACEB(2) 
1*VENOOR* 
#54"DISCOUNTS AVG* 
#22*DISCOUNTS AVG* 
*O7*UNPAID® 
R HEADINGS SPACEA(2) 
1*NUMSER® 
*OB' VENDOR NAME* 
#+Cd*wORMAL TERMS* 
#04" PURCHASES* 
+05" TAKEN DIS%* 
*O5*PURCHASES* 
+O7* TAKEN OIs%' 
#06@*PURCHASES* 
R WORKREC SPACEB(2) 
VNDNBR 5S l 
VNDNAM 25A +01 
VTRMPC 4 3 *+OZEDTWRDO( Ce a") 
VTRMDA 2s *#OLEDTWRO(*O EDAYS*) 
PCHMTD 9 2 +OLEOTWRDI" ¢ « QO. ‘) 
OCTMTD 5 2 *O3EOTWRD(* On ') 
A 3 2 +*OGEDTWRO(*Oe °) 
PCHYTO a 2 +O5EDTWRODI * e O- *)} 
OcTYTD 4 2 +OBEDTWRDI* Oe °) 
B 3 2 +O5SEDTWROI"O5 °%) 
C ll 2 +OLEDTARDI* ’ e Oe *) 
R LAL SPACEB(2) 
13'F TNAL TOTAL S* 
TPM 12 2 *O9EDTwRD(* 5 ? e $650 °') 
TPY 10 2 +1lBEDTWRDE¢ , ¢ $06. °°) 
TPU 13. 2 *+1SEDTWRD(* ’ ° e $0. 
R LR2 SPACEB(2) 
TOM 6 2 GLEOTWRO(* +» £04 °%} 
MPC 3 2 *#OGEDTWRDOI*O2 %°) 
ToY 8 2 *1LSEDTWROI* ¢ » $0. °) 
YPC 3 2 +OSEDTWRO(*D5 %*) 


APC30PRT 


¢*e¢6s END OF 


SQURCER® #8 # ® R 


5T14UTIL ROS MOO 810708 SEU SOURCE LISTING 
SOURCE FILE: APPSRC.APLIB MEMBER: APDSRCH 


SEQNBR ace eee l @#eo eee 2 eeo eee 3 eee eee 4 eee eee 5 eee @eeoe 6 eee eee 7 


100 A DSPSEZ(24 80 4053) 
200 A REF(APPVENDeAPLIB) 
300 A PRINT 

400 A ¥*053 MSGLOCI24) 

500 A R SCH SFL 

600 A R SCH SFLCTLUSCHRCD) 

700 A CaOlLt99 "ENO GF soe") 
800 A NLO ROLLUP(30) 

900 A OVERLAY 

1000 A ll SFLOSP 

1100 A l2 SFLDSPCTL 

1200 A 13 SFLCLR 

1300 A 14 SFLEND 

1400 A SFLSEZ¢U050) 

1509 A SFLPAG(O010) 

1600 A SFLPAG 25 OL 1 3DSPATREND PR) 

17C0 A DETISLO") 

1800 A RRN 25 OH SFLKCONBR 

19G0 A 2 31°VENDOR SEARCH! 
2000 A OSPATRIRI) 

2100 A COOE1 LOA I 4 GLPUTRETAIN 
2200 A CHECK(FE ER) 
2300 A 10 9*VENDOR NAME* 
2400 A 10 3d°SALESPERS®* 

2500 A 10 62°*Z1P* 
2600 A 10 71 "NUMBER ® 
2700 A 4 2° ENTER CHARACTERS FOR SEARCH! 
2800 A DSPATRIHI) 
2900 A B 2'CMO KEY 1 - END OF JOAt 
3000 A DSPATR(HT) 

3100 A & 2°*FIELD EXIT KEY TO SEARCH® 
3200 A DSPATRIHI) 
3300 A 4 30%--------- >t 


see60END OF SOURCES 28 B48 


V CHECK APDSRCH SCREEN LAYOUT FOR NEEDED CHANGES. 
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57L4UTL RO2 MOO 810302 


SOURCE FILE: 


APCSRC eAPHINSTLIL 


SEQ’UBR¢ eae coo | eae eo 


| 


190 
209 
3600 
406 
500 
600 
700 
800 
900 
020 


1100 
1200 


68 


NON OHOAHOAOANS NDT 


APPVEND UF 


wUl 
NOl 


e Ze 


c 


START 


S€J SOQURC: LISTING 


eee 3 eee @ea 4 


ME MBER: 4PR350 


eee e060 5 e@e 


DISK 
Z-ADD503 6 DUM 102 
TAG 
READ VENDMAST 
ADO 250.09 DUM 
Z-~AD00U% PCHY TU 
Z-ADO1L5.00 OCT4TO 
Z-AD072.00 ocTyTo 
UPDATVENJD MAST 
GOTO START 
SETON LR 


**¢ £¢ See ND 


OF SQUR 


eee 6 eee e806 T eee 


r 
. 


ol 


Esee*s#s8 ¢ 


eee 3 


APR350 


OL/27/A1l 10244252 


eee e200 9 


0 





STL4UT1 RO3 MOO 810708 
SOURCE FILE: 


SEONBR eee eee l 
100 
200 
300 
400 
500 
600 
700 
800 
900 

1000 

1160 

L260 

1300 

1400 

1500 

1609 

1709 

1800 

1900 

2000 

2100 

2260 

2300 

2400 

2500 

2600 

2700 

2800 

2900 

3000 

3100 

3200 

3306 


H 
FAPOSRCH CF 


F 
FAPLSCHYNIF 


55 


NS5 


99 
99 


AOANMANAANANANAAANANDRAAAANOAAAMANDH 


eee eee 2 eee 


E 


E 


FILL 
S1TN30 


COOE1L 


MORE 
RRN 


DSPLAY 


END 


APWSRC -APWINSTLIBA 


K 
SETON 


3 coe coe % eee 


SEU SOURCE LISTING 


MEMBER: 


WORKSTN 
RRN 
DISK 


EXF¥TSCHC TL 


SETOF 
TAG 

IFEO 
SE TON 


*g? 


SETLLAPLSCHVN 
WRITESCHRCO 


SE TOF 
z~-aD00 
Z-aD00 
SETOF 
END 
ADO 
TAG 


CABEQOSPREC 


SFLPAG 


RRN 
OSPREC 20 


DSPREC 


OSPLAY 


READ APLSCHVN 
GOTO OSPLAY 


aco 1} 


RAN 


WRITESCHCTL 


GoTo 
TAG 
SETON 


“ORE 


EXFMTSCHRCO 


SETOF 
SETON 


GOTO END 
GOTO FELL 


TAG 


*O6 20 © ENO 2 F 


APR4&00 


eee 5 eae 


76 


Té 


17 


TT 


55 


eee 6 eae 


eee T ee ove 8 


APR400 


KSFILE SCHCTL 


DSPLAY CTLREC 


IN3O2ROLLUP KEY 


CLR SFL 


ROLLUP; AOD PAGE 


ONLY 1 SFLPAGE 


S5SsEOFENOT SFLEND 


45400 a SFL REC 


SHOW CTLESFL 


992CFl (QUIT) 


S§SQURCER®% 9 @ 8 


69 


70 





$714UT1 RG3 MOO S1OTOS SEU SOURCE LISTING 


SOURCE FILE: 


SEQNBRFece 


100 

200 

300 

400 

500 

600 

700 

800 

900 
1000 
1100 
1200 
1300 
1400 
1500 
1600 
1700 
1800 
1900 
2000 
2100 
2200 
2300 
2400 
2500 
2600 
270€ 
2800 
2900 
3000 
3100 
3200 
3300 
3400 
3500 
3600 
3700 
3800 
3900 
4000 
#100 
4200 
4300 
4400 
4500 
4600 
4700 


APPSRC.APLIB MEMBER : APC400 


eee 1 eee eee 2 eee @ee 3 eee eee 4 eee eee 5 ese eee 6 @ee eee 7 


IDENTIFICATION DIVISION. 
PROGRAM-ID. APC 400. 
ENVIRONMENT OIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. I[BM~S3B. 
OBJECT-COMPUTERe ISM~S38. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 
SELECT ITMFL ASSIGN DATABASE-APLSCHVN ORGANIZATION INOEXED 
ACCESS SEQUENTTat RECORD KEY SCHCOD OF ITMFL. 
SELECT SFLACOD ASSIGN WORKSTATION-APOSRCH ORGANIZATION 
TRANSACTION ACCESS DYNAMIC RELATIVE KEY RECNO STATUS SK. 
DATA OIVISION. 
FILE SECTION. 
FD SFLACO LAPEL RECORD OMITTED. 
OL SFREC. COPY DOS-ALL-FORMATS OF APDSRCH. 
FO ITMFL LAGEL RECOKD I[S STANDARD. 
Ol ITMRECe COPY OOS-VENOMAST OF APLSCHYNe 
WORKING-STORAGE SECTION. 


77 ONE PIC IS 1 VALUE IS 8"1*%, 
TT CLR PIC L VALUE IS BNO". 
77 =6SK PIC KX. 


77 OSPREC PIC S99. 
77 «=RECNUO PIC 996 
77? =PAGE-SIZE FIC 99. 
PROCEOURE DIVISION. 
BEGINe OPEN I[-O SFLRCO INPUT ITMFL. MNVE SPACES TO SCHCOD OF 
ITMFL« MOVE ONE TO INT6e 
WRITE SUBFILE SFREC FOxXMAT “SCHROD™ INVALIO GO OUT. 
READ SURBFILE SFLRCD FORMAT “SCHROO" INVALIUO GO OUT. 
MOVE COMEL OF SCHCTL-I TO SCHCOO OF ITMFL. 
MOVE SFLPAG QF SCHCTL-I TO PAGE-SIZE. 
FILLe IF IN3O = CLR PERFORM CLEAR-SFLe ADD PAGE-SIZE TO OSPREC. 
MOKEe IF RECNO = OSPREC THEN GO TO OSPLAY. 
READ ITMFL AT ENU MOVE ONE TO INS5 GO TO DSPLAY. 
MOVE CORR VENDMAST TO SCHRCD. ADD 1 TO RECNND. 
WRITE SUBFILE SFREC FOKMAT “SCHRCO” INVALID GO OUT. GO MURE.W 
DSPLAY. MOVE ONE TO IN75 INToe MOVE CLR TO INT7« 
MOVE RECNM TO RRN OF SCHCTL-C. 
WRITE SUSFILE SFKEC FORMAT “SCHRUD" INVALIU GO OUT. 
READ SUBFILE SFLRCD FORMAT “SCHROD" INVALIO GO Gut. 
IF 799 = UNE GO OUT. MOVE CODEL TO SCHCUD OF ITMFL. GU FILL. 
OUT. STOP KUN.» 
CLEAR-SFL. “OVE ONE TO INTT. 
WRITE SUOFILE SFREC FORMAT “SCHRDN™ INVALIO GO QUT. 
START ITMFL KEY NOT < SCHCUO OF LTMFL INVALID GO DUT. 
MOVE CLR TU IN7TT IN5Se MOVE ZERO TO RECNO OSPREC. 


*23 998 END CGF SOQOURCE® & 8H 8 


SYSFAM SOURCE MODULES 


5714UT1 RO3 MOO 810708 SEU SOURCE LISTING 
SOURCE FILE: MEMBER: RPGTEAM 
SEQNBR*~ coe eee l eee see 2 eee eee 3 eee eee 4 eee eee 5 eee eee 6 eee eee 
100 FESOFMTS CF CE WORKSTN 
200 FAPLVEND IF E K DISK 
300 c LOOP TAG 
400 Cc EXFMTVNOINQ 
500 C NEXT CHAINAPLVEND 5¢c 
600 C 99 SETON LR 
7100 Cc NO? GOTO LOOP 


22% 26ND OF SOURCE * # # # # 


+ 
rh 
‘ 
4 


5714UT1 RO3Z MOO 810708 SEU SOURCE LISTING 
SOURCE FILE: APPSRC-APLIB MEMBER: CBLTEAM 
SEQNBR “eee eee l eee eee 2 eee eee 3 eee eee 4 @eoe eee 5 eee eee & @e@e eee 

100 ENVIRON*ENT UIVISTUNS 

26oc CONFIGURATION SECTIGNe 

300 SOURCE-CUOMPUTERe Ib4-S38- 

400 ORJECT-COMPUTERe IBM-S38- 

500 INPUT-OUTPUT SECTION. 

600 FILE-CONTROL. 

700 SELECT OSP) ASSTGN WORKSTATION-ESDFMTS 

800 ORGANIZATION TRANSACTION. 

960 SELECT 0OH1 ASSIGN DATABASE-APLVEND ORGANIZATION 
1000 INDEXED ACCESS RANDOM RECORD VNONPR OF VENUMAST. 
1100 DATA DIVISION. 

1200 FILE SECTION. 
1300 FO ODOSPL LAPEL RECORD OMITTED. 

1400 Ol GUSPe COPY DOS-VNOINO OF ESDFMTSe 
1500 FO DBL LABEL RECORDS STANDARD. 

1600 Sl Dle COPY DDS-VENOMAST OF APLVFENDe. 

1700 PROCEDURE DIVISION} 

18U0 BEGINe OPEN I-O DSP] INPUT Dole MOVE 7ERUS TO VNUINO-O.~ 
1900 LOOP. WRITec DSP FORMAT “VNDINQ". 

2000 READ DSPle IF IN99 = B™1" THEN GO QUIT. 

210C MOVE B™O" TO INSO« MOVE NEXT-DDS Tu VNONSR CF VENDMAST. 
2200 READ DBL INVALID MOVE B"L" TO INSO GO LOOP. 

2300 MOVE CORR VENDMAST TO VNDINO-O. GO LOOP. 

2400 QUIT. CLOSE OSP1 DBle STOP RUN. 


7-3 = * = —E ND OF SOURCE* *¥ * # % 


Data To Be Entered Into APLTRAN« file 
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Vendor 
No. 


For Step 8 007 14 
(via APD10x) 00221 


05075 

00714 

0022 1 

10504 

ForStep 16 00010 
(via APR20x/ *00050 
APC20x) 05075 
*62478 

007 14 

For Step 23 *00020 
(via APR20x/*01015 


APC20x and 05075 
APR210/ *00116 
APC210) 0022 1 

10504 


—_ = 
=2aaQoeon~ Oa hWwNH— 


= = oe oe 
“Oo O01 ® GW NO 


Invoice Date 
No. 


Rec’d 


1125 79 
11 25 79 
11 26 79 
11 29 79 
12 05 79 
12 07 79 


012180 
012180 
01 25 80 
02 02 80 
02 05 80 


02 01 80 
02 03 80 
01 30 80 
02 07 80 
01 15 80 
02 30 80 


Merchandise 


Amount 


15,760.00 
650.00 
2,000.00 
3,/50.00 
7,500.00 
250.00 


10,000.00 
650.00 
2,500.00 
500.00 
1,000.00 


10,000.00 
10,000.00 
3,500.00 
1,000.00 
1,000.00 
500.00 


Dept. w 


No. 


010 
012 
010 
220 
102 
010 


220 
010 
151 
010 - 
055 


300 < 
220 
012 
102 
101 
010 


Note: Status code should be placed in the record as a 
constant “’E”’. 


*Invalid vendor numbers. 


sf 
{ 
r 


Valid Vendor and Department Numbers 


00010 
00011 
00016 
00021 
00145 
00210 
00221 
00296 
00305 
00313 
00431 
00612 
00688 
00714 
01148 
03535 
05075 
06183 
06242 
07374 
07733 
10502 
10504 
11002 
13130 
15864 
21178 


VALID VENDOR NUMBERS 


24001 
24133 
25256 
30188 
33333 
34681 
45892 
56330 
56567 
63200 
63218 
63410 
65321 
72302 
73013 
84210 
88714 
94613 
94946 
96431 


VALID DEPARTMENT NUMBERS 


010 
012 
050 
055 
101 
102 
151 
220 
300 
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Optional Command Entries 


You may enter these command language commands (for the indicated 
steps) by pressing CF3 (to obtain command entry display) instead of 
using programmer menu options: 


2. ::EDTSRC APPSRC APPTRANx *PF 17. 


3. >: CRTPF APPTRANx.APLIB 


SRCFILE(APPSRC) 21. 


3a.:: DSPFD APPTRANx 


22. 


5. ::EDISRC APPSRC APLTRANx *LF 


6. :: CRTLF APLTRANx.APLIB 
SRCFILE(APPSRC) 


7. ::DSNDFUAPP APP(APD10x. APLIB) 
OPTION(*SELECT) 


8. ::CHGDTA APD10x 23 


9, ::CPYF APLTRANx *LIST 
PRTFMT (*HEX) 94 


11.::EDTSRC APPSRC APDENTRx *DSPF 


12.::CRIDSPF APDENTRx.APLIB 


SRCFILE(APPSRC) 35. 


SRCMBR(APDENTRx ) 
-or- 
>: DSNFMT APPSRC APDENTRx APLIB APWJOBD 


14. ::EDTSRC APPSRCfAPR20x *RPG 
APC20x *CBL 


15.::CRTRPGPGM APR2Ox.APLIB 42. 
SRCFILE(APPSRC) 
SRCMBR(APR20x) 
-Or- 


>: CRICBLPGM APC20x.APLIB 
APPSRC APC20x 
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::CPYF  APLTRANx *LIST 


PRTFMT (*HEX) 


>: EDTSRC APPSRCfAPR20x *RPG 
APC20x *CBL 


Re-compile your program. 


me maa ap APLIB 
APC20x.APLIB 


::CRTRPGPGM APR20x.APLIB 


SRCFILE(APPSRC ) 
SRCMBR(APR20x ) 
-Oor- 
>:CRTCBLPGM APC20x.APLIB APPSRC 
APC20x 


22: CALL ey 


APC20x 


. Copy your data file to the printer to verify 


that the new records were added. 
: :CPYF APLTRANx TST: 
PRTFMT ( *HEX ) 


Execute your control language program in 
the batch sub-system. To do this enter the 
following command: 


::SBMJOB JOB(TEAMx) JOBD(QBATCH) 
RQSDTA('CALL APL30x.APLIB') 
INLLIBL(APLIB QGPL QTEMP) 

USER (*CURRENT ) 
/*BATCH JOB FROM TEAMx*/ 


DSNQRYAPP APP(APQ42x.APLIB) 
OPTION(1) 


~~ 


Optional SDA Lab Exercise #1 


The goal of this exercise is to use SDA to replace and test your 
APDENT Rx display (source code and display file) created in lab steps 
10 through 12. You should not do this exercise until those lab steps 
are complete and the instructor tells you to do so. 


Before you start, obtain an Edit Source printout of your source member 
APDENTRx. Use it, as you go, to check off how you would use SDA 
to create each DDS statement. Keep in mind that you can use the 
HELP key at any time while using SDA. 


The following 28 steps should yield a new APDENTRx source file and 
display file. 
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Optional SDA Exercise #1: APDENTRx . 


1. Remove the APDENTRx DDS-source statements. 


FROGRAMMER MENU 

Select one of the following: 

Design/execute DFU app (app), ,(aptions) 
2. Desigqn/execute vuery app Capp), , options) 

Create object object name, type, pgm for CMD, (text) 
Call program program name 
Execute command command 
Submit job (job name), (command) 
Display submitted jabs 
Edit source (srembr), (type), (text) 
Resign display format Csrcabr) 
Sign off C@#NOLIST RLIST) 


Types: BSCF, CBL, CL, CLF, CMD, CMNF, DSFF, LF, FF, FRTF, RFG, TXT 


Option: @ Farm: APDENTRX Type: DSPF Parm 2: 
Command: 


Text: Log requests: #YES 
Sre file: APPSRC Src lib: APLIB Qbj lib: AFLIE Jobd: AFWJORD 
CF3 - Command entry CF4 — Frompt (3 & 5 only) CFS - DSPMSG » 





———e (ENTER) 





SEW US Wd Mbr = AFDENTRX Scan 
FMT DF 1... .AANOLNOZNOST. NametetetthlenteTDpRLinfosFunct ionsttttt++e teeter eee 
KH*KBEGINNING OF DATA¥HHE 

DPFF OO 
9002.00 
0003.00 
0004.00 
0005.06 
0004.00 
0007.00 
0008.00 
0009.00 
0010.00 
QO011.00 
0042.00 
9013.00 
0014.06 
9045.00 
6014.00 
0017.00 
4018.00 
0049.00 
9020.00 


DSPSIZ(24 80 *#DS3) 
REF CAFFFREF .APLIB) 
PRINT 
MSGLDC(24) 
K AP ENTR TEXTC'TEAMX TRANS-ENTRY SCR 
CALAC99 'EOU') 
2 AL ACCOUNTS FAYARLE INVOICE! 
SEDATE 
» S9TIME 
5 44'VENDOR NUMBER! 
VNDNEF: : > 46 
ERRMSGC'THVALID VENDOR NUME : 
6 JAT INVOICE NUMBER' 
INVNERK . 43 
7 AL'DATE RETEIVED' 
DATREC 43 
11 *MERCHANDISE AMOUNT‘ 
MERCH ‘ y 43 ® 
11'DEFARTMENT CHARGED' 
DEF TNO : 48 


PPPOPPPrPrPPSrPrTrosPpPPrerrPpvsS 





———» (ENTER) 
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es SEU US Wed Mbr: AFDENTRX Scan: 


FMT DF .....AANOLNO2ZNO3T .Name++++4++Rlent+TDpkl inFosFunct onstt+e+ee+ttteeteeese 
#HERBREGINNING OF DATAMHHH 
HHRHMEMEND OF DA TAM ot ot et 


Enter I Cinsert), IFff (insert under format ff), IFff Cinsert with 
prompt ff} or A (copy after) at cursor. DSFF ff values are: 
ee, Ae, DF 
For more help, press HELF. 


. a 
é 
SEU EXIT 
Setect one of the fotlowrivs 
Exit without update 
Exit and update member 
Exit and create a new member 
. Update member, no exit 
. Create member, no exit 
4. Return to editing 
Orntion 2 
MEMBER FILE LIBRARY 
For options 2 to 5: AFPDENTRX AF PSKC APLIB 
Resequence member CY N) Y Start: 4.090 Increment: 4.00 
For options i to 7: 
Return to mewber List CY N)- 
For options i toa 6 
Frint source Listing (Y MN) N 
TOTAL RECORDS ADDED CHANGED DELETED SYNTAX ERRORS LEFT 
22 
4 





——» (ENTER) 
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2. Start SDA to generate a new APDENTR«x. 


PROGRAMMER MENU 
Select one of the following: 
4. Design/execute DFU app (app), , (options) 
2. Design/execute query app (app), ,Coptions) 
3. Create object object name, type, pgm for CMD, (text) 
Call program program name 
Execute command command : 
Submit job (job name), Ccommand) 
Display submitted jobs 
Edit source. (srcmbr), (type), (text)? 
Design display format (srcmbr ) 
Sign off C¥NOLIST #*#LIST) 


Types: BSCF, CBRL, CL, CLP, CMD, CMNF, DSPF, LF, FPF, FRTF, RFG, TXT 


Option: 9 Parm: APDENTRX Type: Parma 2: 
Command : 


Text: Log requests: *YES 

Sre file: AFFSRKC Src lib: AFPLIB Obj lib: APLIEB Jobd: APWJOBD 
CF3 - Command entry CF4 - Frompt (3 & 5 only) CF& - DSPMSG 

Member APDENTRX file APPSRC.APLIB updated with O records. 





——> (ENTER) 


SDA OPTION MENU 


SELECT ONE OF THE FOLLOWING: 
le DESIGN DISPLAY RECORD FURMATS 
20 DESIGN A MENU 
3e TEST AN EXISTING DISPLAY RECORD FORMAT 


OPTION: 1 


WITHIN SODA: 
PRESS HELP KEY TU OISPLAY HELP TEXT FOR THE CURRENT OISPLAYe 
PRESS CFL KEY TO EXIT ANY OPTION AND ALLOW SAVING THE CHANGES. 
PRESS CF2 KEY TO BACK UP TO THE PREVIOUS DISPLAY IN A SERIES. 
PRESS ENTER/SREC ADV TO ADVANCE TO THE NEXT DISPLAY. 





———> (ENTER) 


c 


3. Enter Record Format Name and request file-level entry prompts. 


SOA DESIGN RECORD FORMAT MENU 
SELECT GONE OF THE FOLLOWING: 

le FILE DEFINITION 

2e RECORD FORMAT DEFINITION 

3- FIELD DEFINITION 

4 SUBFILE CONTROL RECORD DEFINITION 

Se SUBFILE RECORD FORMAT DEFINITION 

Ge SAVE ODS/CREATE DISPLAY DEVICE FILE 


OPTION: 1 


NEW OR EXISTING DISPLAY RECORD FORMAT 
(BLANK FOR RECORD FORMAT LIST DISPLAY) RECORD FORMAT: APENTR 


ENTER THE SOURCE FILE FOR DOS DDS SOURCE FILE: APPSRC 
LIBRARY LIBRARY: APLIB 
NEW OR EXISTING MEMBER NAME 
(BLANK FOR MEMBER LIST CISPLAY) MEMBER: APQENTRX 


ENTER ADDITIONAL RECORD FORMATS TO BE 
DISPLAYED ON THE WORK DISPLAY ADDITIONAL RECORDS: 





———> (ENTER) 


4. Enter REF and DSPSIZ keywords. 


SDA FILE DEFINITION 

Le GENERAL FILE KEYWORDS 3. PRINT KEYWORDS 

2e COMMAND KEYS AND INQICATOR TEXT 
UPTION: 3 

Le GENERAL FILE KEYWORDS 
SELECT CONDITION 

DEVICES SUPPORTED WITH THIS FILE OSPSIZ SIZE NAME 
(SPECIFY 1 TO SELECT THE PRIMARY DISPLAY 24X80 1 70$3 
SIZEs SPECIFY 2 TO SELECT ALTERNATE 12x80 #0S2 
DISPLAY SIZES.) 16X64 #951 


00 NOT UNDERLINE INPUT CAPASLF FIELCS CHGINPDFT (Y No): 
ALLOA BLANKS FOR INPUT FIELDS CHECK(AP) (Y N}2 


RETRIEVE FIELD DESCRIPTIONS FROM THE FULLOwING 
DATA BASE FILE REF APPFREF 
LIGRARY LIBRARY: APLI® 
RECORD FURMAT RECORD: 


RECORD FORMAT WHEN PASSING UNFORMATTED DATA PASSRCO 





——> (ENTER) 
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5. Select print keyword and terminate file-level entries. 


SOA FILE DEFINITION 
le GENERAL FILE KEYWORDS 3-2 PRINT KEYWORDS 
2e COMMAND KEYS ANO INDICATOR TEXT 

OPTION: 1 


(Y N) NNN NNN NNN OR 
PRINT KEY SUPPGRTEO WITH THIS FILE PRINT: Yo 


TO HAVE CPF HANDLE PRINTINGs USING A PRINTER DEVICE FILEs SPECIFY: 
DEVICE FILE FILE: 

LIBRARY LIBRARY: 

LEAVE PRINT FILE OPEN UNTIL DISPLAY FILE CLOSED OPENPRT UY ND: 


-- OR -- 
TO HAVE YOUR PROGRAM HANDLE PRINTING» SPECIFY: 


SET THIS RESPONSE INDICATOR IF PRINT KEY IS PRESSED 
INDICATOR TEXT: 





———> (CF2) 


6. Initiate record-level keyword definition. 


SOA DESIGN RECORD FORMAT MENU 
SELECT ONE OF THE FOLLOWING: 

le FILE OFFINITION 

2¢ RECORD FORMAT DEFINITION 

3e FIELD DEFINITION 

4e SUBFILE CONTROL RECORD OEFINITIUN 

5e SUBFILE RECORD FOKMAT DEFINITION 

60e SAVE DOS/CREATE NISPLAY DEVICE FILE 


OPTION: zs 
NEw OR EXISTING DISPLAY RECORD FORMAT 
(BLANK FOR RECORD FORMAT LIST OISPLAY) RECORD FORMAT: APENTP 


ENTER THE SOURCE FILE FOR ONS DOS SOURCE FILE: APPSRC 
LIBRARY LIBRAPY: APLIb 
NEW OR EXISTING MEMSER NAME 
(BLANK FOR MEMBER LIST DISPLAY) MEMBER : APUFNTKX 


ENTER ADDITIUNAL RECORD FORMATS TO BE 
DISPLAYED ON THE WOFK DISPLAY ANVITIONAL RECORDS: 





——> (ENTER) 


7. Make text and CA12 entries, then terminate record level entry. 


SDA RECORD FORMAT DEFINITION 
RECORD: APENTR TEXT: TEAMX TRANSACTION ENTRY SCREEN 
le COMMAND KEYS AND INDICATOR TEXT Ge GENERAL RECURD KEYWORGS 
2. OUTPUT KEYWORDS Se OVERLAY KEYWORDS 
3- INPUT KEYWORDS 6- ROUTING FEEDBACK 
OPTION: 2 


le COMM&ND KEYS AND INDICATOR TEXT 
KEY- CONDITIONING ALLOWED: (CF91-2% CAOL-24 CLEAR ROLLUP ROLLDOWN HELP HOME) 
KEY- WITHOUT CONDITIONING? CINDTXT VLOCMDKEY SETOF/SETOFF CHANGE) 
NNN NNN NNN OR + KEY IND TEXT 
CAl2 399 END OF JOb 


(ROLL FOR MORE) 





see (C2) 


8. Begin field-level entries. 


SDA DESIGN RECORD FORMAT MENU 
SELECT ONE OF THE FOLLOWING: 

le. FILE DEFINITION 

2- RECORD FORMAT DEFINITION 

3e FIELD DEFINITION 

4% SUBFILE CONTRUL RECORD GEFINITION 

5. SUBFILE RECORD FORMAT DEFINITION 

6s SAVE OOS/CREATE OISPLAY DEVICE FILE 


UPTION: 3 


NEW OR EXISTING DISPLAY RECOKM FORMAT 
(BLANK FOR RECORD FOKMAT LIST UISPLAY) RECORD FURMAT: APENTR 


ENTER THE SOURCE FILE FOR DOS ODS SOURCE FILE: APPSRC 
LIBRARY LIBRARY: APLIU 
NEW OR EXISTING MEMRES NAME 
(BLANK FOR MEMBER LIST DISPLAY) MEMBER: APOENTRX 


ENTER ADDITIONAL RECORD FORMATS TO BE 
DISPLAYED ON THE WORK DISPLAY ADUI TIONAL RECORDS: 





—»> (ENTER) 
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9. Before entering on the blank workscreen, request database fields ‘ 
you'll be using. wi) 


xv° SOA WORK DISPLAY: PRESS HELP FOR LIST OF VALID COMMANDS AND CF KEYS. 





—— (CF 11) 


10. Specify your logical file (APLTRANx). J 


SDA DATA BASE FILE DISPLAY 


ENTER DATA BASE FILE NAMES FROM WHICH FIELUS ARE TU bF DISPLAYcD. 
FOK X-I-O-b: ENTER AN X TO DiSPLAY DATA BASE FIELP OISPLAY 
ENTER USAGE ATTRIBUTE: I TO ASSIGN FIELO AS INSUT FIELD 
O TO ASSICN FIELD AS QUTPUT Fielv 
B T9 ASSIGN FIELD AS SUTH FIELC 


x-1-0-5 DATA BASE FILE LIBRARY RECOKD FORMAT 
> x APLTRANX APLIA 
*LToL 
=LIBL 
=LIol 





——> (ENTER) 
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$DaA DATA BASE FORMAT LIST 
DATA PASE FILE: APLTRANX LIBRARY: APLIB 


RECORD FORMAT LIST: 
1 PAYBLE 


- SELECT RECORD FORMAT TO USE WITH DATA BASE FILE DISPLAY 





———> (ENTER) 


11. Select the 5 input fields and return to work display. 


SOA DATA BASE FIELD OISPLAY 

RECORD: PAYBLE 

TO SCRULL THE FILE ENTER THE NUMBER GF FIELNS TO ROLL RJLL? 15 
TO SEARCH THE FILE FOP A FIELD ENTER THE FIELO NAME FIELO: 


FOR x-1-0-8 ENTER X FOR THE EXTENDED DATA GASE FIELD OISPLAY. 
ENTER [Ly Oy GR & FORK USAGE AND SELECTION CF THE FIELD. 
X-1-0-8 FIELO LENGTH TYPe COLUM" HEADING 
VNON®R 50G VENOUR NUMEER 
INViWSAR e,o VENDOR INVOICE NU“DER 
DaTREC 6,0 DATE RECEIVE 
MERCH Ty? MERCHANDISE AMUUNT 
NET Te2 NET AMUUNT PATIO 
STATUS 1 STATUS OF RECIKD 
DTPAIO 640 DATE PAIO 
CHECK WUMPER 
DEPARTMENT NUMUFR 


CHECKS 650 
OEP TNO 390 


vcVuIAO VW TVV 





——— (CF 2) 
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SDA DATA BASE FILE DISPLAY 


ENTER DATA BASE FILE NAMES FROM WHICH FIELDS ARE TO SE OISPLAYED. 
FOR X-I-O0-8: ENTER AN X TO DISPLAY OATA SASE FIELD DISPLAY 
ENTER USAGE ATTRIBUTE: I TO ASSIGN FIELO AS INPUT FIELO 
O TO ASSIGN FIELD AS OUTPUT FIELD 
B TO ASSIGN FIELD AS BOTH FIELD 


X-1-0-B DATA BASE FILE LIBRARY RECORD FORMAT 
APLTRANX APLIB PAYBLE 
SLIBL 
SLIBL 
SLIBL 





———> (CF2) 


12. Obtain a “‘ruler’’ around work display. 


LiVNONBR 2: INVNBR 3:DATREC 4: MERCH 5: DEPTNU 





C 


13. Enter the display title (a character constant) on line 2. 


1 eee e800 2 @ee e286 ee e006 5 eee eee 6 eee ec 7 ete e008 a 


ea 3 @eee0e @ee 4 ee 
*aCCOUNTS PAYABLE INVOICE® 


23 
Li VNDNBR 2: INVNBR 3:DATREC 4:MERCH 5:O0EPTNO 





———>(ENTER) 


14. Enter all remaining constants and place the database-input fields 
with associated text to the left (small “’L’’). 





@aae eee i eee eee 2 @2ee eee 3 e s eee 4 eee ese 5 e@¢e eer & eee ete 7 ete @es r- ' 


ACCOUNTS PAYABLE INVOICE eOATE ST IME 


FRR 


ee ee be ee oe 

aOR FWA OD 
a] 
Ww 
tnd 


18 
19 
20 "PRESS ENTER TU CONTINUE ° *COMMAND KEY 12 - END OF JOB’ 
21 
22 
23 


LiVNONBR 2: INVNBR 3:DATREC 4: MERCH 5: DEPTNO 


———(ENTER) 
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15. Request error-message entry for vendor number field. 













Ll eee ees 2 eee eee0ce 3 eee eee 4 eee eee 5 eee eee 6 wee ese T eee aee 8 


ACCOUNTS PAYABLE INVOICE 0D/DO/0D TT:TT: TT 


OOnoulruwns 


VENDOR NUMBER: %33333- 
VENOOR INVOICE NUMBER:  33333333- 
DATE RECEIVED: 333333- 
MERCHANOISE AMOUNT: 3333333- 
DEPARTMENT NUMBER: 333- 





PRESS ENTER Tu CONTINUE COMMAND KEY 12 - END OF JOR 





———»(ENTER) 


SDA EXTENDED FIELD OEFINITIUN 
FIELD: VNONBR USAGE: I LINE: 05 Pus: 45 LENGTH: 520 
Le DISPLAY ATTRIBUTES Te GENERAL KEYWORDS 
Ze KEVING OPTIONS Se VALIOITY/CHELK Be SUSFILE KEYWORDS 
3. FIELD REFERENCE &e MESSAGES 
& 


Le. OISPLAY ATTRIBUTES 
THE FOLLOWING DISPLAY ATTRIAUTES CAN BE SELECTED On CONDITIONED. 


OSPATR (CY N} NNN NNN ANG OR + 
FIELD CONDITIONING 
Higa INTENSITY H} 
REVERSE IMAGE RI 


COLUMN SEPARATORS cs 
BLINA BL 
NONOISPLAY ND 
UNDERLINE UL 
POSITION Cue@s5OR PC on 


SET MOOIFIED DATA TAG MOT 
PROTECT FIELO PR 
OPERATOR TO MAGNETIC CARD orp 
SELECT BY LIGHT PEN SP 





——— (ENTER) 





16. Insert ERRMSG text and conditioning; then return to work display. 


SDA EXTENDED FIELD DEFINITION 

FIELO: VNONBR USAGE: I LINE: 05 POS: 45 LENGTH: 590 
Le DISPLAY ATTRIBUTES Te GENERAL KEYWORDS 
2e KEYING OPTIONS Se VALIDITY/CHECK 8. SUBFILE KEYWORDS 
3e FIELD REFERENCE 6. MESSAGES 

OPTION: 7 


- - 66 MESSAGES 


IF YOUR MESSAGES ARE NOT IN A MESSAGE FILE ENTER: (ROLL wITH CURSOK FOR MORE! 
NNN NNN NNN OR + ERRMSG - MESSAGE TEXT RESP IND 
50 INVALID VENOUR NUMSER 


+ 


IF YOUR MESSAGES ARE IW A MESSAGE FILE ENTER: (ROLL WETH CURSOR FOR MORE) 
NNN NNN NNN OR + ERRASGID FILE LISRARY 





———=(CFZ) 


17. Request a print of the work display (it will print at SDA 
termination). 


@eocs ene 3 een ees % @ee eee & eee @eoe 7 ees oeoe c 


ACCGUNTS PAYABLE INVOICE 0O/DD/0D TT:TT:TT 


VENDOR NUMBER? 33333- 
VENDOR INVOICE NUMBER: 33333333- 
DATE RECEIVED: 333333- 
MERCHANDISe AMOUNT: 3333333- 
DEPARTMENT NUMBER: %333- 


oarweuwfPuwne 


PRESS ENTER TU CONTINUE COMMAND KEY 12 - ENO OF JOE 





——+ (CF6) 
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18. Terminate record-level entries. 


VENDOR NUMBER: 

VENDOR INVOICE NUMBER: 
OATE RECEIVED: 
MERCHANDISE AMOUNT: 
DEPARTMENT NUMBER: 


2 
3 
4 
5 
6 
7 
8 
9 


eee eee 3 e@eo eee 4 eee 


6 
ACCOUNTS PAYABLE INVOICE 00/09/00 TT: TT: TT 


e eee eo 68 7 eee e806 


33333- 
33333333- 
333333- 
3333333- 
333- 


PRESS ENTER TO CONTINUE COMMANDO KEY 12 - END OF JQR 


WORK DISPLAY PRINT COMPLETE. 


———» (CF 2) 


19. Begin the save/create operation. 


SDA DESIGN RECORO FORMAT MENU 


SELECT ONE CF THE FOLLIWING: 
le FILE DEFINITION 
2e RECORD FORMAT OEFINITION 
3e FIELD OEFINITION 
Ge SUSFILE CONTROL PECORD DEFINITION 
Se SUBFILE RECORD FIKMAT NEFINITION 
be SAVE ODS/CREATE DISPLAY OEWICE FILE 


GOTION: 6 
NEW OR EXISTING LCISPLAY RECNKO FORMAT 
(BLANK FUR RECURO FORMAT LIST OISPLAYI 


ENTER THE SMURCE FILE FOR DOS 
LIBRARY 
NEW OR EXISTING MEMSER NAME 
(BLANK FOR “EMSER LIST OI SPLAY) 


ENTER ADOITIONAL RECORD FORMATS T9 BE 
DISPLAYED ON THE WORK DISPLAY 


—— (ENTER) 


RECORD FORMAT: APERLTR 


DOS SOURCE FIle: APPSKC 
LIDRARY: APLI6 


MEMSER: APDENTRX 


ADDITIONAL RECORDS: 


3 








20. Replace existing DDS-source and submit batch job to create a new 
display file. 


SDA SAVE DDS/CREATE DISPLAY DEVICE FILE, 


SAVE THE GENERATED DDS SOURCE (Y Nd: ¥ 
SOURCE FILE wWHreRE OOS IS TO BE SAVED: R APPSRC 
LIBRARY: APLIB 
MEMBER: APDENTRX 
(BLANK FOR MEMBER LIST DISPLAY) 


CREATE A DISPLAY DEVICE FILE FROM THE OOS Y 
OISPLAY OEVICE FILE: APDENTRX 
LIBRARY: APLIB 
IF CREATE FAILS+ OISPLAY SPOQOLEN LISTING Y 
REPLACE EXISTING FILE Y 
PROMPT FOR ADDITIONAL CRTIDSPF PARAMETERS 


SUBMIT DISPLAY DEVICE FILE CKEATION IN BATCH v 
JOB OESCRIPTION: APwJOBD 
LIBRARY: *LIOL 


MEMBER APDENTRX ANN FILE APUENTRX EXIST. CFLll TO REPLACE. 


SDA SAVE DOS/CREATE DISPLAY DEVICE FILE 


SAVE THE GENERATED ODS SOURCE (Y No: ¥ 
SOURCE FILE aHERE DOS IS TU BE SAVED: R APPSRC 
LIGRARY: APLIAB 
MEMBER: APNENTRX 

(BLANK FUR MEMOFR LIST OLSPLAY) 


CREATE A OISPLAY DEVICE FILF FROM THe DOS Y 
OISPLAY GEVICE FILE: R APOENTRX 
LISRARY: APLIA 
IF CREATE FAILS» SISPLAY SFOOLED LISTING ‘ Y 
RFPLACE EXISTING FILE Y 
PROY“PT FOR ADDITIONAL CRIDSPF PARAMETERS 


SUBMIT DISPLAY DEVICE FILE CREATION IN SATCH Nyt Y¥ 


JO8 DESCRIPTION: APWwJOSN 
LIBRARY: SLTSet 


& MBR APDENTRX SAVED; AATCH CREATE SUBMITTED. PRESS ENTER. 





——+» (ENTER) 
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21. Terminate SDA. 


SDA DESIGN RECORD FORMAT MENU 
SELECT ONE OF THE FOLLOWING: 

Le FILE SEFINITION 

2e RECORD FORMAT DEFINITION 

3. FIELD DEFINITION 

4&e SUBFILE CONTROL RECORD DEFINITION 

5e SUBFILE RECORD FORMAT DEFINITION 

6» SAVE DOS/CREATE DISPLAY DEVICE FILE 


OPTION: 


NEW OR EXISTING DISPLAY RECOkKO FORMAT 
(BLANK FOR RECORD FORMAT LIST OISPLAY) RECORN FORMAT: 


ENTER THE SOURCE FILE FOR DDS DDS SOURCE FILE: 
LIBRARY LIBRARY: 


NEW GR EXISTING MEMSER NAME 
(BLANK FOR MEMBER LIST DISPLAY) MEMBER: 


ENTER ADDITIONAL RECORD FORMATS TO BE 


DISPLAYED ON THE WORK DISPLAY ADDITIONAL RECORDS: 


SOA OPTION MENU 


SELECT ONE OF THE FOLL'IWING: 
le DESIGN DISPLAY RECOKO FORMATS 
2- DESIGN A MENU 
3- TEST AN EXISTING DISPLAY RECORD FORMAT 


OPTION: 


WITHIN SDA: 
PRESS HELP KeY TO OISPLAY HELP TEXT FOR THE CURRENT DISPLAY. 
PRESS CFL KEY TO EXIT ANY OPTION AND ALLUW SAVING THE CHANGES. 
PRESS CF2 KEY TO BACK UP TO THE PREVIOUS DISPLAY IN A SERTES. 
PRESS ENTER/REC ADV TO ADVANCE TO THE NEXT OISPLAY. 


APENTR 


APPSRC 
APLIB 


APDENTRX 





PROGRAMMER MENU 


Select one of the following: 

Design/execute DFU app 
2. Design/execute query app 

Create object 
Call program 
Execute command 
Submit job 
Display submitted jobs 
Edit source 
Design display format 
Sign off 


Types: 


Option: Parm: APDENTRX 


Command : 


Text: 
Src file: APPSRC 
CF3 - Command entry 


BSCF, CBL, CL, CLP, CMD, CMNF, 


Type: 


Src Lib: APLIB 
CF4 - Prompt (3 & 5 only) 


(app), , Captions) 

Capp), , options) 

abject name, type, 
Program name 
command 

(job name), 


pgm for CMD, 


(command ) 


(sycmbr), (typed, (text> 
(srcmbr } 


CH#NOLIST #LIST) 
DSPF, LF, 


Parm 2: 


Log requests: 
dJobd: 
CF& —- DSPMSG 


Obj tib: APLIB 





——— > (WAIT FOR JOB-COMPLETE ALARM) 


———— (CF6) 


MESSAGE QUEUE ~ WS05 


Delivery: *NOTIFY 


(text) 


FF, PRTF, REG, TXT 


“YES 
APWJOBD 


Msgq sev: 00 


Job APWJORD.APWTEAMX.002892 completed normally on 10/20/81 at 11:41:06. 


CF&6 - Remove a message 


CF? - Display ali 


CFSE ~ Renove all’ 
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22. Verify the printouts (display file create and work display printout); 
and then begin an SDA test of your new display. 


PROGRAMMER MENU 
SELECT ONE OF THE FOLLOWING: 
le DESIGN/EXECUTE DFU APP (APP). »( OPTIONS) 
Ze DESIGN/EXECUTE QUERY aPP {APP}, ef OPTIONS) 
3e CREATE QBJECT OBJECT NAME, TYPE, PGM FOR CMDe (TEXT) 
Se CALL PROGRAM PROGRAM NAME 
Se EXECUTE COMMAND COMMAND 
6. SUBMIT JOB (JOB NAME}>» (COMMAND?) 
OISPLAY SUAMITTED JOBS 
EDIT SOURCE {SRCMBR}, (TYPED. (TEXT) 
DESIGN OLSPLAY FORMAT (SRCMBR} 
SIGN OFF (FNOLIST SLIST) 


TYPES: BSCF, CALe Cle CLP, CMDe CMNFe DOSPFe LFa PFe PRIFe RPGe TXT 


OPTION: 9 PARM: APOENTRX TYPE: PARM 2: 
COMMAND: 


TEXT: LOG REQUESTS: SYES 
SRC FILE: APPSRC SRC LIB: APLIS OBJ LIS: APLIR JO50: APWJOAO 
CF3 - COMMAND ENTRY CF& - PROMPT (3 € 5 ONLY) CFé - OSPHSG 





——» (ENTER) 


Soa OPTION MENU 


SELECT ONE OF THE FOLLOWING: 
le DESIGN DISPLAY RECOKO FORMATS 
2 CESIGN A MENU 
3e TEST AN EXISTING DISPLAY RECORO FURMAT 


OPTION: 3° 


wITRIN SDA: 
PRESS HELP KEY Tu OLSPLAY HELP TEXT FOR THE CURRGT DISPLAY. 
PRESS CF1 KEY TO EXIT ANY GPTION AND ALLOW SAVING THE CHANGES. 
PRESS CF2 KEY TO BACK UP TO THE PREVINUS DISPLAY IN A SERTIES« 
PRESS ENTER/REC AOV TO ADVANCE TO THE NEXT OISPLAY. 





——-» (ENTER) 


SOA RECORO FORMAT TEST 


OISPLAY OE€VICE FILE: QR APOENTPX 
LIBRARY: SL IBL 
RECORD FORMAT: APENTR 

{BLANK FOR RECORD FORMAT LIST DISPLAY) 


ADOTTIONAL OISPLAY RECGRD FORMATS 
RECORD FIRMATS: 





——» (ENTER) 


23. For the first test-run, leave the error indicator off. 


SOA OUTPUT OATA FOR TEST 
RECORD: APENTR ENTER PROGRAM OUTPUT DATA ANU TAHDICATOR SETTINGS: 
FIELO NAME FIELON VALUE FIELO MAME FIEL VALUE 
*INSO 2 QO: 

——» (ENTER) 
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24. Enter some “‘typical’’ data. 





ACCOUNTS PAYARLF INVOICE 10/20/81 








VENDOR NUMBER: 12345 
VENDOR INVCICE NUMBER: 654321 
OATE KECEIVEN: 1016Ri 
FRCHANDISE AMOUNT: 10000 
DEPARTMENT NUMBER: 25 











PRESS ENTER YO CONTINUE 





———> (ENTER) 


25. Verify the data input from the display. 


SDA INPUT DATA FOR TcST 
RECORD: APENTR 

FEELD ‘AME FIELD VALUE FLELO NAc 
7IN9G : UE: VNOWSK 
INVNER > 90065432): NATREC 
MERCH > G810000: DEPTNU 


DISPLAY INPUT BUFFER: (Y/N) 


——» (ENTER) 


11:43:54 





COMMAND KEY 12 - END OF JOB 













FLFLO VALUE 


12345: 
: IGL6OAL: 
>: 925: 








26. For this run, activate the error message. 


SDA GQ“UTPUT DATA FOR TEST 
RECORD: APENTR ENTER PROGRAM QUTPUT DATA AND INDICATOR SETTINGS: 


FIELO NAME FIELD VALUE FIELD NAME FIELD VALUE 
=< IN50 wks 


———> (ENTER) 


ACCOUNTS PAYASLE INVOICE 10/20/81 11:43:54 


ylise 
VENDOR NUMPER: gol 23450 
VENDOR INVCICE NUMBER: 4¢é54%321 
DaATe RECEIVED: 10681 
MERCHANDISE AMOUNT: 10000 
OEPARTMENT NUMBER: 25 


PRESS ENTER TO CONTINUE COMMAND K&tY 12 - END OF JOB 


INVALID VENDOR HUMLER 


—y»({RESET—REQUI!RED!) 
——>{CF 12) 








95 


96 


27. Verify that CF 12 turns on indicator 99 and terminate SDA. 


SOA INPUT DATA FOR TEST 

RECORD: APENTR 

FIELD NAME FIELD VALUE FIELD NAME FIELD VALUE 
+ INGO zo13 VNONBA = 12345: 

INVNBR = 00654321: DATREC : 101681: 

MERCH = 0010000: DEPTNO : 025: 


DISPLAY INPUT BUFFER: (Y/N} 


SDA OPTION MENU 


SELECT ONE OF THE FOLLOWING: 
le DESIGN DISPLAY RECORD FORMATS 
2- DESIGN A MENU 
3e TEST AN EXISTING CISPLAY RECORD FORMAT 


OPTION: 


WITHIN SDA? 
PRESS HELP KEY TO DISPLAY HELP TEXT FOR THE CURRENT DISPLAY. 
PRESS CFl KEY TO EXIT ANY UPTION AND ALLUW SAVING THE CHANGES. 
PRESS CF2 KEY TO BACK UP TO THE PREVIOUS DISPLAY IN A SERIES. 
PRESS ENTER/REC ADV TO ADVANCE TO THE NEXT OISPLAYe 





——» (CF 1) 


28. This completes Optional Lab Exercise 1 (the SDA generation and 
test of display file APDENTRx). If you have time, you should also 


repeat lab steps 22 through 24 using unique transaction numbers 
(beyond 17). 
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Optional SDA Lab Exercise #2 


The goal of this exercise (like the first) is to use SDA to replace and test 
a display file (source code and display file). This time the display file 
is APDSRCHx, the one you created in lab steps 36—38. 


You should not do this exercise until those lab steps are completed and 
the instructor tells you to do so. 


Before you start, obtain a copy of the DDS source code that you used 
in lab steps 36—38. Use it, as you do this exercise, to checkoff how 
you would use SDA to create each statement. 


Don’t forget to use the HELP key at any time SDA is running. 


The following 16 steps should yield a new APDSRCHx source member 
and a device file similar to yours. 





1. Clear out the APDSRCH«x source file. 


PROGRAMMER MENU 
Select one of the following: 
. Design/execute DFU app Capp), , (options) 
Design/execute query app Capp), , (options) 
Create object object name, type, pgm for CMD, (text) 
Call program program name. 
Execute command command 
Submit job (job name), (command) 
Display submitted jobs 
Edit source Csrcmbr), (type), (text) 
Design display format Csrembr ) 
Sian off (¥NOLIST *LIST) 


a 
OUD ON KRU DS Whe 
> >» > ew wp eo 


Types: BSCF, CBL, CL, CLF, CMD, CMNF, DSFF, LF, FF, PRTF, RPG, TXT 


Option: & Farm: AFDSRCHX Type: DSFF Farm 2: 
Command : 


Text: Log requests: ¥*YES 
Src file: APESRE Src Lib: AFLIE Obj Lib: APLIE Jobd: . 


CF3 - Command entry CF4 - Frompt (3 & 5 only) CFS - DSFEMSG 
Member AFDSRCHX fite APFFSRC.APLIB updated with 37 records. 





——> (ENTER) 


‘ 
we 


SEU | US Wei Mbr AFPDSRCHX Scan: 
FMT DF AANOLNOQNOST ..Namet++4++4++RLlent+TDp bl inFosFunct i ansttttetet tet eteteet 
**eHBEGINNING OF DATA RK# 


D929 _ 09 
VvuuZ.00 
0003.00 
0994.00 
0065.00 
0606.00 
0007.00 
0008.90 
OOF 0% 
wold. 00 
0011.00 
0012.00 
0643.00 
1014.00 
0015.00 
9916.00 
6017.00 
9018.00 
019.00 
0070.00 


DSFSIZ(24 80 *DS3) 
REF CAFPVEND .APLIE) 
PRINT 
MSGLOC (24) 
RK SCHRCD SFL 

VNDNAM A 12 62 

YNDSLS . 42 34 

YNDZIF 42 Gi 

NPA R: : £2" 74 

¢ SCHCTL SFLCOTLCUSCHRCD) 

CA0i(e? ‘END OF JOB") 
ROLLYUP C30) 
OVERLAY 
SFLDSF 
SFLDSFCTL 
SFLCLR 
SFLEND 
SFLSIZ(0050) 
SFLFAG( 0010) 

SFLFEAG 2S OF &£ SDSFATKCND FR) 


PPrPrYyPrPrrrrrrrrprrrrrrpryp 





——» (ENTER) 


SEU US W:i Mbr: AFDSRCHX Scan: 

FMT DF .....AANOLNOZNOST .Namet++++++RLent+TDp Bl inPosFunct ionst++t++t+t++tettteteese 
HREEBEGINNING OF DATARHHE 
KHKHKHKEND OF DATARRHHHHE 


Enter I ¢insert)!? IFff Cinsert under format ff), IPff Cinsert with 
prompt ff) or A (copy after) at cursor. DSPF ff values are: 
x*, Ax, DF 
For more help, press HELF. 





——» (CF 1) 
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SEU EXIT 


Select one of the following: 
1. Exit without update 
2. Exit and update member 
3. Exit and create a new member 
4. Update member, no exit 
5. Create member, no exit 
&. Return to editing 


Option: 2 


MEMBER FILE LIBRARY 
For aptions 2 to §: APDSRCHX APF SRC APLIE 
Resequence member ¢(Y N): Y Start. 14.00 Increment: 1.00 


For options i to 3: 
Return to member List CY ND): 


For options i to 4: 
Frint source listing CY WN) N 


TOTAL RECORDS ADDED CHANGED DELETED SYNTAX ERRORS LEFT 
a7 





———> (ENTER) 


2. Begin SDA generation of APDSRCHx source code. 


PROGRAMMER MENU 
Select one of the following: 
i. Design/execute DFU app (app), , Captions) 
2. Design/execute query epp (app), , (options) 
3. Create object object name, type, pgm for CMD, (text) 
4. Call program Program nese 
5. Execute command command 
&. Submit job (job neme), (command) 
(. Display submitted jobs 
8. Edit source (srcmbr), (typed, (text> 
9. Design display format (srcmbr) 
90. Sian off (H#NOLIST #LIST) 


Types: HSCF, CHL, CL, CLF, CMD, CMNF, DSPF, LF, PF, PRTF, REG, TXT 


Option: 9 Parm: APDSRCHX Type: Param 2: 
Command: 
Text: Log requests: *YES 
Sre file: APESRC Src lib: APLIB Obj lib: APLIB Jobd: APWJOBD 
CF3 - Command entry CF4 — Prompt (3 & 5 only) CK& - DSPMSG 
J Member AFDSRCHX file APFSRC.APLIB updated with O records. 





——» (ENTER) 
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SDA OPTION MENU 


SELECT ONE OF THE FOLLOWING: 
le DESIGN DISPLAY RECORD FURMATS 
2e OESIGN a MENU 
Ze TEST AN EXISTING DISPLAY RECORD FORMAT 


OPTION: 1 


WITHIN SDA: 
PRESS HELP KEY TO DISPLAY HELP TEXT FOR THE CURRENT CISPLAY. 
PRESS CFl KEY TO EXIT ANY OPTION AND ALLOW SAVING THE CHANGES. 
PRESS CF2 KEY TO BaCK UP TO THE PREVIOUS CISPLAY IN A SERIES. 
PRESS ENTER/REC ADV TO ADVANCE TO THE NEAT OISPLAY. 





——> (ENTER) 


3. Always begin a subfile by identifying the subfile record’s name! 


SDA DESIGN RECORO FORMAT MENU 
SELECT ONE OF THE FOLLOWING: 

le FILE OEFINITION 

2e RECORD FORMAT DEFINITION 

30 FIELO O€FINITION 

&e SUBFILE CONTROL RECORD DEFINITION 

Se SUBFILE RECORD FORMAT OEFINITION 

6- SAVE ODS/CREATE OLSPLAY DEVICE FILE 


OPTION: 5 


NEw OR EXISTING OTSPLAY RECOKM FORMAT 
(BLANK FOR RECGAD FOHMAT LIST OISPLAY) RECORO FORMAT: SCHRCO 


ENTER THE SOURCE FILE FOR ODS ODS SGURCE FILE: APPSRC 
LIBRARY LIBRARY: APLIB 
NEW OR EXISTING MEMBER NAME 
C(ALANK FOR MEMHER LIST OISPLAY? MEMBER: APOSRCHX 


ENTER ADDITIONAL RECORD FORMATS TO BE 
DISPLAYED ON THE WORK OISPLAY ADDITIONAL RECORDS: 





——> (ENTER) 


10] 


SOA SUBFILE RECORO FORMAT DEFINITION wi) 


RECORO: SCHRCO TEXT: 
Le GENERAL SUBFILE KEYWORDS 3e SUBFILE MESSAGE RECORD 
2¢ INDICATOR KEYWORDS 

OPTIUN: 2 


Le GENERAL SUBFILE KEYWORDS 


(Y N) NNN NNN ANN 
RETURN THIS RECOKD ON GET NEXT CHANGED SFLNXTCHG 
WRITE THIS RECORD TO THE JOS LOG LOGOUT 
ARITE THIS RECOFD TO THE yO" LOG LOG UP 


ALLOW BLANKS IN INPUT FIELDS CHECK( AB) CY NJ 


DO NOT DEFAULT UNDERLINE THE INPUT FIELOS IN THIS RECORD 
(UNDERLINE CAN BE A DISPLAY ATTRIBUTE? CHGINPDFT (LY Nb: 


KEEP THIS RECORD ANDO ANY OTHERS ON THE DISPLAY WHEN 
CLOSING (THE OEFAULT IS TO ERASE IT} KEEP tY No: 





—— (CF 2) 


4. Begin file-level entries into subfile record. 


SDA DESIGN RECORD FORMAT MENU 
SELECT ONE OF THE FOLLOWING: 

le FILE DEFINITION 

2- RECORD FORMAT DEFINITION 

3e FIELO OEFINITION 

4%. SUBFILE CONTROL RECORD DEFINITION 

Se SUBFILE RECORD FORMAT OEFINITION 

Ge SAVE ODS/CREATE DISPLAY DEVICE FILE 


OPTION: 1 


NEw OR EXTSTIN.G DISPLAY RECORD FORMAT 
(BLANK FOR RECORD FORMAT LIST OISPLAY) RECORO FORMAT: SCHRCO 


ENTER THE SOURCE FILE FOR ODS DDS SGURCE FILE: APPSRC 
LIBRARY LIBRARY: APLIB 
NEW OR EXISTING MEMSER NAME 
(BLANK FOR MEMBER LIST OISPLAY) MEMBER: APOSRCHX 


ENTER ADOITIONAL RECORD FORMATS TO BE * 
DISPLAYED ON THE WORK DISPLAY ADDITIONAL RECORDS: 





———> (ENTER) 
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SDA FILE DEFINITION 
1. GENERAL FILE KEYWORDS 3. PRINT KEYWORDS 
2» COMMAND KEYS ANO INDICATOR TEXT 

OPTION: 3 


- lea GENERAL FILE KEYWORDS 
SELECT 

DSPSIZ ST2ZE 

24x80 1 

12X60 

16X64 


OEVICES SUPPORTED WITH THIS FILE 
(SPECIFY 1 TG SELECT THE PRIMARY DISPLAY 
SlZee SPECIFY 2 TO SELECT ALTERNATE 
DISPLAY SIZES.) 


SO NOT UNOeRLINWE TiPuy CAPABLE FIELOS 
ALLOw BLANKS FOR INPUT FIELDS 


RETRIEVE FIELD DESCRIPTIONS FROM THE FOLLOWING 


RFCORO FuRMAT 


RECORD FORMAT WHEN PASSING UNFORMATTED DATA 


——> (ENTER) 


SDA FILE DEFINITION 
le GENERAL FILE KEYWORDS 3e PRINT KEYWORDS 
2e COMMAND KEYS AND INDICATOR TEXT 

OPTION: 1 


(Y WN) 


PRINT KEY SUPPORTED WITH THIS FILE PRINT: ¥ 


CONOITION 
NAME 

#0$3 

2082 

eO$1 


MSGLOC 


CHGIAWPOFT CY Nos 
CHECK( AA) 


CY Nos 


REF APPVEND 
LIBRARY: APLIDS 
RECORD: 


PASSRCD 


TO HAVE CPF HANDLE PRINTINGe USING A PRINTER DEVICE FILEs SPECIFY: 


DEVICE FILE 
LIBRARY 
LEAVE PRINT FILE OPEN UNTIL DISPLAY FILE CLOSED 


-- oR -- 


TO HAVE YOUR PROGRAM HANDLE PRINTINGs SPECIFY: 
SET THIS RESPONSE INDICATOR IF PRINT KEY IS PRESSED 
INOICATOR TEXT: 


——> (CF2) 


FILE: 
LIBRARY: 
OPENPRT (Y N}): 





NNN NNN NNN OR + 
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5. Define the subfile control record format (SCHCTL). ic 


“i SDA DESIGN RECORD FORMAT MENU 
SELECT ONE OF THE FOLLOWING: 
le FILE DEFINITION 
2~- RECORDS FORMAT DEFINITION 
3e FIELD DEFINITION 
4 SUBFILE CONTROL RECORD OEFINITION 
5 SURFILE RECORD FORMAT DEFINITION 
Ge SAVE DDOS/CREATE OISPLAY DEVICE FILE 


OPTION: 4 


NEW OR EXISTING OISPLAY RECORD FORMAT 
(BLANK FOR RECORD FORMAT LIST OISPLAY} RECORD FORMAT: SCHCTL 


ENTER THE SOURCE FILE FOR DDS DDS SNURCE FILE: APPSRC 
LIBRARY LIBRARY: APLIB 
NEW OR EXISTING MEMSER NAME 
(8LANK FOR MEMBER LIST DISPLAY) MEMSER: APOSRCHX 


ENTER ADDITIONAL RECORD FORMATS TO BE 
DISPLAYED ON THE WORK DISPLAY ADDITIONAL RECORDS: 





—— (ENTER) 





SDA SUBFILE CONTROL RECORD DEFINITION — 
RECORD: SCHCTL TEXT: 

Le GENERAL CONTROL RECORD KEYWORDS 3e SUBFILE MESSAGES 

Ze SUBFILE DISPLAY LAYOUT 4s SUBFILE MESSAGE RECORD 
OPTION: 2 


le GENERAL CONTROL RECORD KEYWORDS 
ENTER THE NAME OF THE RELATFO SUG@FILE RECORD SFLCTL SCHRCD 
ENTER A CA OR CF KEY TO SWITCH FROM FOLOING TO TRUNCATING 
RECORDS WHEN THE KEY IS PRESSED SFLDROP 


IF ENTER/REC ADV IS TO BE USED AS ROLLUP SPECIFY CA OR CF 
KEY USED IN PLACE OF ENTER/REC ADV SFLENTER 


(Y N) NNN NNN NNN OR + 


DISPLAY SUBFILE RECORDS SFLOSP) RY 15 
DISPLAY CONTROL RECORD SFLOSPCTL Y 76 
INITIALIZE SUBFILE FIELDS SFLINZ 
DELETE SUBFILE AREA SFLOLT 
CLEAR SUBFILE OF RECOROS FOR INPUT SFLCLR 
DISPLAY * FOR MORE RECORDS SFLEND 
RECORD NOT ACTIVE SFLRNA 





———> (ENTER) 
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SDA SUBFILE CONTROL RECORD DEFINITION 
RECORD: SCHCTL TEXT: 

le GENERAL CONTROL RECORD KEYWOROS 3e SUBFILE MESSAGES 

2 SUBFILE DISPLAY LAYOUT 4e SUBFILE MESSAGE RECORD 
OPTION: 3 


20 SUBFILE DISPLAY LAYOUT - - - - 


THe FOLLOWING KEYWORDS WILL GCETERMINe THE SUSFILE OTSPLAY LAYOUT: 


DISPLAY SIZE 
NUMBER OF RECORDS IN SURFILE SFLSIZ 
NUMBER OF RECORDS PER UISPLAY SFLPAG 
NUMBER OF SPACES BETWEEN RECORDS SFLLIN 





——+» (CF2) 


6. Add SCHCTL format-level entries. 


SDA DESIGN RECORD FORMAT MENU 
SELECT ONE OF THE FOLLOWING: 

le FILE OEFINITION 

Ze RECORD FORMAT DEFINITION 

3e FIELO DEFINITION 

4e SUBFILE CONTROL RECORD DEFINITION 

5e SUPFILE RECORD FORMAT DEFINITION 

6e SAVE DDS/CREATE DISPLAY DEVICE FILE 


OPTION: 2 


NEW OR EXISTING DISPLAY RECORD FORMAT 
(BLANK FOR RECORD FORMAT LIST DISPLAY) RECORC FORMAT: SCHCTL 


ENTER THE SOURCE FILE FOR DOS DOS SOURCE FILE: APPSRC 
LIBRARY LIBRARY: APLIB 
NEW OR EXISTING MEMRER NAME 
(BLANK FOR MEMBER LIST OISPLAY) MEMAER: APOSRCHX 


ENTER ADDITIONAL RECORD FORMATS TO BE 
DISPLAYED ON THE WORK DISPLAY ADDITIONAL RECORDS: 





——> (ENTER) 
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SDA RECORD FORMAT DEFINITION 
RECORD: SCHCTL TEXT: 
le COMMAND KEYS AND INDICATOR TEXT 4« GENERAL RECORD KEYWORDS 
2. CUTPUT KEYWORDS Se OVERLAY KEYWOKDS 
3e INPUT KEYWORDS 6« ROUTING FEEDBACK 
OPTION: 5 


- - - - - le COMMAND KEYS AND INDICATOR TEXT 
KEY- CONDITIONING ALLOWED: (CFO1-24 CAOL-24 CLEAR RULLUP RONLLDOWN HELP HOME) 
KEY- WITHOUT CONDITIONING: (INOTXT VLDCMDKEY SETOF/SETOFF CHANGE) 
NNN NNN NNN OUR + KEY ING TEXT 


CAu1 99 END OF yOR 
ROLLUP 3G 


(ROLL FUR MORE) 





——> (ENTER) 


SDA RECORD FORMAT DEFINITION 
RECORD: SCHCTL TEXT: 
1. COMMAND KEYS AND INDICATOR TEXT 4. GENERAL RECORD KEYWORDS 
2e OUTPUT KEYWOROS Se OVERLAY KEYWORDS 
3- INPUT KEYWORDS 6« ROUTING FEEDBACK 
OPTION: 6 





OVERLAY KEYWORDS 
USE THE FOLLOWING KEYWORDS FOR OVERLAYING RECORDS: 
(Y N} NNN NNN NNN OR 
OVERLAY WITHOUT ERASING ENTIRE OISPLAY OVERLAY Y 
IF RECORD IS ON THE DISPLAY DO NOT ERASE PUTRETAIN 
PROTECT INPUT FIELDS CURRENTLY OISPLAYED PROTECT 
ACTIVATE OVRDTA AND OVRATR FIELD KEYWORDS PUTOVR 


RESET ALL MODIFIED DATA TAGS MOTOFF 

SUNPR/FALL: MORE: 
ERASE ALL INPUT FIELDS ERASEINP 

=MDTON/S*ALL = MORE: 
ERASE ALL RECOROS SPECIFIED ERASE 
ERASE RECORDS: 


(ROLL FOR MORE ERASE KEYWORDS) MORE ERASE RECORDS: 





———> (CF 2) 
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7. Add SCHCTL fields and constants. 


SOA DESIGN RECORD FORMAT MENU 


SELECT ONE OF THE FOLLOWING: 
Le FILE OEFINITION 
2e RECORD FORMAT DEFINITION 
3e FIELD OEFINITION 
4e SUBFILE CONTRUL RECORD VEFINITIUN 
Se SURFILE RECORD FORMAT DEFINITICN 
Ge SAVE ONS/CREATE DISPLAY CEVICE FILE 


UPTION: 3 


NEW OR EXISTING OFSPLAY RECORD FORMAT 
(BLANK FUR RECORD FORMAT LIST DISPLAY) 


ENTER THE SOURCE FILE FOR ODS 
LISRARY 
NEw OR EXISTING MEMBER NAME 
(BLANK FOR MEMBER LIST OITSPLAY) 


ENTER ADOITYIONAL RECORD FORMATS TO BE 
DISPLAYED ON THE WURK OISPLAY 


——_ (ENTER) 


7A. Add a ruler to work display. 


RECORD FUGMAT: 


oCS SnuRce FILE: 
LIBRARY: 


MEMBER: 


ADOITIGNAL RECOROS: 


SCACTL 


APPSRC 
APLIB 


A°DSKCHX 





SDA WORK OISPLAY: PRESS HELP FOR LIST OF VALIO COMMANDOS ANO CF KEYS. 





——— (CF 8) 
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108 


7B. Key in displayed constants and input field. 













9 
10 
il 
l2 
13 
14 
18 
16 
1? 
18 
19 
20 
21 
22 
23 

















———> (ENTER) 


SOA WORK OISPLAY: 


SFLELD EXIT KEY FOR SEARCH® 
7 


CMD KEY 1 - END OF yJO3* 


2 "VENDOR SEARCH® 
3 

“ENTER CHARACTERS FOR SEARCH---~-~---- >* eLTITIIIITitl 
5 


*VENOGR MNAME* "SALESPERS®* 





PRESS HELP FOR LIST OF VALIO COMMANDS AND CF KEYSe 


7C. Add display attributes. 


@® ee 1 eon a2c006@ 2 @ee eee 3 @ee e006 4 @eo eee 5 eee 


2 
3 
BE 


SVENDOR SEARCH 


NTER CHARACTERS FOR SEARCHe---<-""-> JITEIILIIl 


SELELO EXIT KEY FOR SEARCH 


SCMO KEY 1 = ENO OF JOB 


——> (ENTER) 


VENDOR NAME 


SALESPERS 


eee e880 1 eee e088 2 eee a080 3 eee #880 4 eee eee 5 eee eee & een ete T @ee ene 38 





*zIe* *NUMRER® 


eco 6 coe coe 7 cee one 8 


NUMBER 








eo 


SDA EXTENDEO FIELO DEFINITION 
CONSTANT: VENDOR SEARCH LINE: 02 POS: 31 LENGTH: 13 
le DISPLAY ATTRIBUTES Te GENERAL KEYWORDS 


OPTION: 7 


le DISPLAY ATTRIBUTES 
THE FOLLOWING OISPLAY ATTRIBUTES CAN BE SELECTED OR CONDITIONED. 


OSPATR (Y N) NNN NNN NNN OR ¢ 
FIELD CONOITIONING 

HIGH INTENSITY HI 

REVERSE IMAGE RI Y 

COLUMN SEPARATORS cs = 

BLINK BL 

NONDISPLAY NOD 

UNDERLINE UL 

POSITION CURSOR PC 


SDA ,EXTENOEO FIELD OEFINITION 
CONSTANT: ENTER CHARACTER LINE: 04 POS: O2 LENGTH: 27 
le OISPLAY ATTRIBUTES Te GENERAL KEYWORDS 


OPTION: 7 


Le DISPLAY ATTRIBUTES - - = - = -= = - - eee 
THE FOLLOWING DISPLAY ATTRIBUTES CAN BE SELECTED OR CONDITIONED. 


OSPATR (Y N) NNN NNN NNN OR ¢ 
FIELD CONDITIONING 

HIGH INTENSITY HI o¥. 

REVERSE IMAGE RI 

COLUMN SEPARATORS cs 

BLINK BL 

NONDISPLAY NO 

UNDERLINE UL 

POSITION CURSOR PC 





———> (CF2) 
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SDA EXTEMOFD FIELO DEFINITION 
CONSTANT: FIELO EXIT KEY LINE: 06 POS: 02 LENGTH: 24 
Le DISPLAY ATTRIBUTES Te GENERAL KEYWORDS 


OPTION: 


1. DISPLAY ATTRIBUTES 
THE FOLLOWING DISPLAY ATTRIBUTES CAN BE SELECTED OR CONDITIONED. 


OSPATR (Y N) NNN NAN NNW OR ¢ 

FIELD CONDITIONING 

HIGH INTENSITY HI Y 

KEVERSE IMAGE RI [— 

COLUMN SEPARATORS cs 

BLINK BL 

NONOISPLAY NO 

UNDERLINE UL 

POSITION CURSOR PC 


SDA EXTENDED FIELD DEFINITION 
CONSTANT: CMD KEY 1 ~ END LINE: O86 POS: 02 LENGTH: 22 
Le DISPLAY ATTRIBUTES 7e GENERAL KEYWORDS 


OPTION: 


le DISPLAY ATTRIBUTES 
THE FOLLOWING DISPLAY ATTRIBUTES CAN BE SELECTED OR CONDITIONED. 


DSPATR (Y N) NNN NNN NNN OR ¢ 
FIELD CONDITIONING 
HIGH INTENSITY ha 
REVERSE IMAGE 
COLUMN SEPARATORS 
BLINK 
NONDISPLAY 
UNDERLINE 
POSITION CURSOR 





——» (CF2) 
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™, 
. 


7D. Place the SFLPAG field. 


eae eee 4 eae eee 5 


VENDOR SEARCH 


ENTER CHARACTERS FOR SEARCH TITIITIIIE 
5 

FIELO EXIT KEY FOR SFARCH 

T 

CMO KEY 1 - END OF JO4 

9 


VENDOR NAME SALESPERS NUMPER 





——» (ENTER) 


33- ee 1 eco coe 4 eee eee 5 
2 VENDOR SEARCH 

PATER CHARACTERS FOR SEARCH ITITITIVIT 
erie EXIT KEY FOR SEARCH 

oa KEY 1 - END OF JOb 


10 VENDOR NAME SALESPERS VUMBER 





——> (CF 10) 
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7E. Correct the field names, attributes and add RRN field. 


SDA FLELD LIST 
RECORD: SCHCTL 


CONTROL ORDER NAME TYPE LENGTH LINE PQS REF CONDITION OVERLAP 
10 VENDOR SEA 13 02 31 
20 ENTER CHAR 37 04 03 
30 FLO001 1G 4 
49 FIELD EXIT 25 ué 
50 CMO KEY 1 22 
60 VENDOR NAM hi 
70 SALESPERS 9 
§9 ZIP 3 
90 KU MOE s¢ o 
100 FLOOO02 


BRAD AM ABRAM 


CONTROL D - DELETE A FIELP * - EXTeNOED FIELO DEFINITION 
ADD A HIDDEN FIELD NAME: URDER: LENGTH: 
ADD A MESSAGE FIELO NAME: OPDER: LENGTH: 


SOa FIELO LIST 
RECORD: SCHCTL 


CONTROL ORDER NAME TYPE LENGTH LINE POS REF CONDITION OVERLAP 


10 VENDOR SEA 
20 ENTER CHAR 
30, CODEL 

40 FIELD EXIT 
50 CMD KEY 1 

60 VENDOR NAM 
70 = SALESPERS 

so 8 67z1P 

90 NUMBER 

100 SELPAG. 


13 Q2 3l 

37 04 03 

10 Q4 43 

25 06 G3 
22 068 
tt 10 
9 10 
3 10 
6 10 
Ol 


a ONO MOT OO 


CONTROL DO - DELETE A FIELD * = EXTENDED FIELD OEFINITION 
ADD A HIDDEN FIELO NAME: RRN OROER: 110 LENGTH: 
AOD A MESSAGE FIELD NAME: ORDER: LENGTH: 





——» (ENTER) 
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SDA 


FIELO: CODE) USAGc: 


le DISPLAY ATTRIBUTES 

2e KEYING OPTIONS 

3- FIELD REFERENCE 
OPTION: 2 


FIELO CONDITIONING 
AIGH INTENSITY 
REVERSE IMAGE 

COLUMN SEPARATORS 
BLINK 

NONDISPLAY 

UNDERLINE  , 

POSITION CURSOR 

SET MOOTFIEO DATA TAG 
PROTECT FIELD 
OPERATOR [D MAGNETIC CARO 
SELECT BY LIGHT PEN 


EXTENDED FIELO DEFINITION 


I LINE: 64 POS: 42 LENGTH: 10 

Te GENERAL KEYWORDS 
Se VALITOILTY/CHECK 
Ge. MESSAGES 


le DISPLAY ATTRIBUTES 
THE FOLLOWING DISPLAY ATTRIBUTES CAN BE SELECTED OR CONDITIONED. 


OSPATR .1Y N} NNN NNN NNN OR ¢ 


HI 
RI 
cs 
BL 
NO 
UL 
PC 
“OT 
PR 
Oro 
SP 





——» (ENTER) 


SDA EXTENDED FIELD DEFINITION 
FIELD: CQDE1 USAGE: I LINE: 04 POS: 42 LENGTH: 10 
Le DISPLAY ATTRIGUTES 7. GeNERAL KEYWORDS 
2. KEYING OPTIONS Se VALIDITY/CHECK 
3. FIELD REFERENCE 6. MESSAGES 
OPTION: 7 


2e KEYING OPTIONS 
KEYWORD 
CHECK (Y NJ} NNN NNN TINN OR ¢ SYNUNY™ 
AUTOMATIC RECURD ADVANCE ER ve AUTO{(RA) 
FIELD EXIT KEY REQUIRED Yv 
LOWERCASE SNTRY ALLOWED LOWER 
MANDATORY FETRY = 
MANGATQRY FILL 
RIGHT ADJUST SLA&ANK FILL 
RIGHT ADJUST ZERO FILL 


AUTO(RA") 
AUTOU(RAZ) 


THE KEYSMARD SHIFT ATTRIAUTE CAN LIMIT WHAT CAN PE KFYED INTO THIS FTELO. 


CHARACTER FIELOS (N A X W TI} NUMERIC FIELOS (S NY I) 


SELECT A KEYAGARD SHIFT CHARACTER FROM THE CIST ABOVE: 





——> (ENTER) 


113 


SDA EXTENDEO FIELD DEFINITION 
FIELO: CODE! USAGE: I LINE: 04 POS: 42 LENGTH: 10 
le DISPLAY ATTRIBUTES Te GENERAL KEYWOROS 
2e KEYING OPTIONS Se VALIDITY/CHECK 
3- FIELO REFERENCE 60 MESSAGES 
1 


Te GENERAL KEYWORDS 


TEXT (FIELD LEVEL): 

BLANKS IND: TEXT: 
CHANGE IND: TEXT: 
INOTXT INO: TEXT: 
DEFAULT VALUE OFT: 


(Y N) NNN NNN NNN OR + 
DO NOT UNDERLINE THIS FIELD CHG INPOFT 
RETAIN FIELD ON DISPLAY (REQUIRES OVERLAY)  PUTRETAIN Y_ 
OVERRIDE DATA (REQUIRES PUTOVR) OVROTA 
OVERRIDE ATTRIBUTES (REQUIRES PUTOVR) OVRATR 
USER PROGRAM WILL HANDLE DUPLICATE pup 
pup .__—_IND: TEXT: 
ROUTING FIELD POSITION IN FEEDBACK AREA RTGFLD POSITION: 


SDA EXTENDEO FIELO DEFINITION 

FIELD: SFLPAG USAGE: I LINE: O01 POS: 03 LENGTH: 240 
le DISPLAY ATTRIBUTES Te GENERAL KEYWORDS 
2e KEYING OPTIONS 5« VALIDITY/CHECK 8. SUBFILE KEYWORDS 
36 FIELD REFERENCE 6. MESSAGES 

OPTION: 7 


le DISPLAY ATTRIBUTES 
THE FOLLOWING DISPLAY ATTRIBUTES CAN BE SELECTED OR CONDITIONED. 


DSPATR (Y N) NNN NNN NNN OR + 
FIELD CONDITIONING 
HIGH INTENSITY HI 
REVERSE IMAGE RI 
COLUMN SEPARATORS 
BLINK 
NONDISPLAY 
UNDERLINE 
POSITION CURSOR 
SET MOOIFIED DATA TAG 
PROTECT FIELD 
OPERATOR [D MAGNETIC CARD 
SELECT BY LIGHT PEN 





——»> (ENTER) 
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Cc 


SOA EXTENDED FIELD DEFINITION 


FIELD: SFLPAG USAGE: I LINE: OL 
le DISPLAY ATTRIBUTES 


2e KEYING OPTIONS Se VALIOITY/CHECK 


3- FIELO REFERENCE Ge MESSAGES 
OPTION: 8 


TEXT (FIELD LEVEL): 

BLANKS INO: TEXT: 
CHANGE IND: TEXT: 
INDTXT IND: TEXT: 
DEFAULT VALUE OFT: ‘10° 


DO NOT UNCERLINE THIS FIELD 

RETAIN FIELD ON OISPLAY (REQUIRES OVERLAY) 
OVERRIDE DATA REQUIRES PUTOVR) 

OVERRIDE ATTRIBUTES (REQUIRES PUTOVR) 

USER PROGRAM WILL HANOLE OUPLICATE 

ouP IND: TEXT: 

ROUTING FIELD POSITION IN FEEDBACK AREA 


—— (CF2) 














SOA 


RECORD: SCHCTL 








CONTROL 





ORDER NAME TYPE LENGTH 
10 VENDOR SEA C 13 





20 ENTER CHAR C 37 
30 CODE1 I 10 
40 FIELO EXIT C 25 
50 CMO KEY 1 C 22 
60 VENDOCK NAM C ll 
70 SALESPERS Cc 9 
80 Zip C 3 
99 NUMBER Cc 6 
109 SFLPAG I Zu 
3 110 RAN H 2es 


ADD A HIODEN FIELO NAME: 
ADD A MESSAGE FIELD MAME: 








———> (ENTER) 


FIELD LIST 


LINE 





CONTRCL D- DELETE A FIELD * - EXTENDED FIELD DEFINITION 


POS: 03 LENGTH: 290 


Te GENERAL KEYWORDS 
&. SUBFILE KEYWORDS 


(Y N) NNN NNN NNN OR * 
CHGINPOFT 
PUTRETAIN 
OVROTA 
OVRATR 
OUP 


RTGFLDO POSITION: 











POS REF CONOITION OVERLAP 


04 Q3 
04 43 
06 03 
oe 03 
10 10 
10 37 
10 60 
10 V2 
Ol G3 









ORDER: LENGTH: 
ORDER: LENGTH: 
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SDA EXTENDED FIELO OEFINITION 

FIELO: RRN USAGE: H LINE: POS: LENGTH: 220 
Te GENERAL KEYWORDS 
8. SUBFILE KEYWORDS 


OPTION: 8 


Te GENERAL KEYWORDS 


TEXT (FIELO LEVEL): 
INDTXT INO: TEXT: 





——> (ENTER) 


SDA EXTENDEO FIELD DEFINITION 

FIELD: RRN USAGE: H LINE: POS: LENGTH: 290 
Te GENERAL KEYWORDS 
5. SUBFILE KEYWORDS 


OPTION: 7 
6. SUBFILE KEYWORDS - - - - - 


IF THIS FIELO IS PART OF A SUBFILE CONTROL RECORD, 
IT CAN BE ONE OF THE FOLLOWING GROUPS: 


OESCRIPTION 


OPERATOR CAN ENTER THE RECORD NUMBER TO BE 
OISPLAYED IN THE SUBFILE PAGE SFLRCDONBR 


PUT CURSOR AT THE FIRST INPUT FIELD CURSOR 





——> (CF2) 
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4 


SOA FIELO LIST 
RECORO: SCHCTL 


CONTROL ORDER NAME TYPE LENGTH LINE POS REF CONDITIGN OVERLAP 
10 VENOOK SEA 13 02 31 
20 ENTER CHAR 37 04 03 
30 CODE 10 04% 43 
40 FIELO EXIT 25 06 03 
50 CMO KEY 1 22 06 03 
60 VENOOR NAM Li 10 10 
70 SALESPERS 9 ic 37 
a0 zie 3 16 60 
30 NUMBER 6 LO 72 
100 SFLPAG 200 01 G3 

119 REN 


TeNnnannean 


CONTROL DO = DELETE A FIELD @ = EXTENDED FIELD OEFINITION 
ADD A MIDDEN FIFELO NAME; ORDER: LENGTH: 
ADO A MESSAGE FIELD NAME® ORDER: LENGTH: 





——— (CF 2) 


ee l eee e086 2 eee eee 3 eee 608 4 ee¢ eee 5 eee e864 & @ee @o08 T eee eee 8 


2 VENOOR SEARCH 

3 

ENTER CHARACTERS FOR SEARCH TIQQQTIQril 
5 


FIELO EXIT KEY FOR SEARCH 
7 

CMD KEY 1 - END OF JOB 

9 

10 VENDOR NAME SALESPERS NUMBER 
Li 

l2 

13 

14 

L5 

16 

17 


18 
19 
20 
ra 
22 
23 
24 
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8. Now add the subfile record fields to the work display. 


SOA OESIGN RECORD FORMAT MENU 
SELECT ONE OF THE FOLLOWING: 

le FILE DEFINITION 

2e RECORD FORMAT OEFINITION 

3- FIELO DEFINITION 

4- SUBFILF CONTROL RECORD DEFINITION 

5. SUBFILE RECORD FORMAT DEFINITION 

6. SAVE DDS/CREATE DISPLAY DEVICE FILE 


OPTION: 3. 
i NEW OR EXISTING OLSPLAY RECORD FORMAT 
, (BLANK FOR RECORG FORMAT LIST DISPLAY) RECORD FORMAT: SCHRCD 
ENTER THE SOURCE FILE FOR DDS DOS SOURCE FILE: APPSRC 
LIBRARY LIBRARY: APLIB 
NEW OR EXISTING MEMBER NAME 
(BLANK FOR MEMBER LIST DISPLAY) MEMBER: APDSRCHX 


ENTER ADDITIONAL RECORD FORMATS TO BE 
DISPLAYED ON THE WORK OISPLAY ADDITIONAL RECORDS: SCHCTL 


———> (ENTER) 


ee 3 eee o*ue 4 eee @ees 5 


VeNUORK SEARCH 


FNTER CHARACTERS FOR SEARCH PILI! 
5 

FIELO EXIT KEY FORK SEARCH 

1 


C4“D KEY 1 - END OF JD4 


VENDOR MAME SALESPERS NUMBER 


SOA WORK DISPLAY: PRESS HELP FOR LIST OF VALID COMMANDS AND CF KEYS. 
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SDA DATA BASE FILE OISPLAY 


ENTER DATA BASE FILE NAMES FROM WHICH FIELDS ARE TO BE DISPLAYED. 
FOR X-I-O-B: ENTER AN X TO DISPLAY DATA BASE FIELO DISPLAY 
ENTER USAGE ATTRIBUTE: I TO ASSIGN FIELD AS INPUT FIELD 
O TO ASSIGN FIELD AS OUTPUT FIELD 
B TO ASSIGN FIELD AS BOTH FIELD 


OATA BASE FILE LIBRARY RECORD FORMAT 
APPVENO APLIB 
*LIBL 
FLIBL 
=LIBL 





——> (ENTER) 


SDA DATA BASE FORMAT LIST 
OATA BASE FILE: APPVEND LIBRARY: APLIB 


RECORO FORMAT LIST: 
1 VENOMAST 


- SELECT RECORO FORMAT TO USE WITH DATA BASE FILE DISPLAY 





——> (ENTER) 
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SOA DATA BASE FIELD DISPLAY 

RECORD: VENDMAST 

TO SCROLL THE FILE ENTER THE NUMBER OF FIELOS TO ROLL ROLL: 
TO SEARCH THE FILE FOR A FIELD ENTER THE FIELD NAME FIELD: 


FOR X-I-O-B ENTER X FOR THE EXTENDED DATA BASE FIELD DISPLAY. 
ENTER Ie Oye OR B FOR USAGE AND SELECTION OF THE FIELD. 

X-1-0O-8 FIELO LENGTH TYPE COLUMN HEADING 

VNONBR 5,0 VENDOR NUMBER 

VNDNAA 25 VENDOR NAME 

VNDADL 25 ADORESS LINE 1 

VNDAD2 25 ADORESS LINE 2 

VNDAD3 25 ADDRESS LINE 3 

VNOZIP 5,0 ZIP CODE 

VNDACD 300 AREA CODE 

VNOPHN 729 PHONE 

VTRMPC 303 TERMS &% 

VTRMDA 2-0 TERMS DAYS 

VNOCLS 20 CLASS 

ACcTCD 1 ACTIVE RECORD CODE 

VNOSLS 25 SALESPERSON 

DCTMTD Te2 DISCOUNT TAKEN MTO 

OCTYTO 9e2 DISCOUNT TAKEN YTO 


VVUOASHVGVVGDIVAAGHD 





——> (CF 2) 


SOA DATA BASE FILE DISPLAY 


ENTER DATA BASE FILE NAMES FROM WHICH FIELOS ARE TO BE DISPLAYED. 
FOR X-I-O-8: ENTER AN X TO DISPLAY DATA BASE FIELD DISPLAY 
ENTER USAGE ATTRIBUTE: I TO ASSIGN FIELO AS INPUT FIELD 
O TO ASSIGN FIELD AS OUTPUT FIELD 
B TO ASSIGN FIELD AS BOTH FIELD 


X-1-0-8 DATA BASE FILE LIBRARY RECORD FORMAT 
APPVEND APLIB VENOMAST 
SLIBL 
SLIBL 
oLIBL 





——+(CF2) | 
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ee l eee eee 2 eee eee 3 ees eee 4 eee eee 5 eee eee 6 eee eee T eee eee 81 
2 VENDOR SEARCH 
3 
ENTER CHARACTERS FOR SEARCH 
5 


TTIIITITIT! 
FIELO EXIT KEY FOR SEARCH 
7 


CMO KEY 1 - END OF JOB 
9 

10 VENDOR NAME 

ll 

162 £1 
13 

14 

1S 

16 

17 

18 

19 

20 

2l 

22 

23 

1: VNONGR 2: VNONAM 3: VNDZIP 4: VNDSLS 


SALESPERS NUMBER 





——> (ENTER) 


eae 3 eee eee 4 eee eee 5 eee eee 6 eee eee T eee ees b 


VENOCR SEARCH 


ENTER CHARACTERS FOR SEARCH 
5 

FIELD EXIT KEY FOR SEARCH 

7 


TIVITIES 


CMD KEY 1 - END OF JOB 
9 


VENDOR NAME SALESPERS NUMBER 


goog000nNNNCOODONOUVONNINVO 
oongoo0O0NON_OVOGOOOOOU0CG0 
cooo0000000R000000000000UuN 
ooN00000N00000N00NN0N000000 
NosoOuNN0Ood00NGOVANDNINN 
ov0000000000000000000000N 
ooooouo0000000000u00NN0UN 
oo000u000000000N0NNauOUCLO 
oo000000N000000000000000 
oonooucooDROGRNGN00NNNIO0N 

22 

23 

24 


oa000c000000cc00LV0U0u00R000 
ooooduoo000u00000000000C0 
oooooGcoo0d000U00000000000 
o0uoagno9g000000000000000000 
ooonoocoo000u00NnNNnNoGo00N0N 
oo00g0000000000000000N00U0 
noogooocoo00 00 000000000C0 
oo gg00 000uU000000n00000000 
ooo0cg000000000000000000000 
oooonaco00Gco0 0000000000000 


66666 
66666 
66666 


66666 
66666 
66666 
66666 
66666 
66666 
66666 





9. Print the finished work display. 


——> (CF6) 
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ENTER CHARACTERS FOR SEARCH 


5 

FIELO EXIT KEY TO SEARCH 
7 

CMO KEY 1 - ENO OF JOB 


VENDOR NAME 


oooo000000000000000000000 
oooo000000000000000000000 
o000000000000000000900000 
oooo00c000000000000000000 


ooooo000000000000 00000000 
oooo0o0000000000000000000 
ooooococo00c00000000000000 
oooocco000000000000000000 
oooc000000000000000000000 
oooooo0co00c0000000c000000 


3 eco cos 4% eee eee 5 eee @ 


VENDOR SEARCH 


> ITIIIIIIII 


SALESPERS 


ooo000000000 0000000000000 
ooooo0g co000000000000n0000 
oooo00 coco00 0000000000000 
oooco000c00000 00000000000 
oooo0000000000 00000000000 
0000000000000000000000000 
ooooooco00000000000000000 
oooo0oo00000c0 00000000000 
000000000000 0v00000000000 
ooococo0000000000000000000 


7 eee eee 


NUMBER 


66666 
66666 
66666 
66666 
66666 
66666 
66666 
66666 
66666 
66666 


WORK DISPLAY PRINT COMPLETE. 





——> (CF2) 


10. Save DDS-source and create a new display file. 


SDA DESIGN RECORD FORMAT MENU 
SELECT ONE OF THE FOLLOWING: 

le FILE DEFINITION 

2e« RECORD FORMAT DEFINITION 

32 FIELD DEFINITION 

4e SUBFILE CONTROL RECORD DEFINITION 

5. SUBFILE RECORD FORMAT DEFINITION 

Ge SAVE DDS/CREATE DISPLAY DEVICE FILE 


OPTION: 6 


NEW OR EXISTING DISPLAY RECORD FORMAT 
(BLANK FOR RECORD FORMAT LIST DISPLAY} RECORD FORMAT: SCHRCO 


ENTER THE SOURCE FILE FOR DDS DDS SOURCE FILE: APPSRC 
LIBRARY LIBRARY: APLIB 
NEw OR EXISTING MEMSER NAME 
(S3LANK FOR MEMBER LIST OISPLAY) MEMBER: APOSRCHX 


ENTER ADDITIONAL RECORD FORMATS TO BE 
DISPLAYED ON THE WORK DISPLAY ADDITIONAL RECORDS: SCHCTL 





——> (ENTER) 
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Cc 


SOA SAVE DDS/CREATE DISPLAY DEVICE FILE 
SAVE THE GENERATED DDS SOURCE (Y No: ¥ 
SOURCE FILE WHERE OOS IS TO BE SAVED: R APPSRC 
LIBRARY: APLIB 
MEMBER: APOSRCHX 
(BLANK FOR MEMBER LIST OISPLAY) 
CREATE A DISPLAY DEVICE FILE FROM THE ODS (Y N): Y 
DISPLAY OEVICE FILE: R APDSRCHX 
LIBRARY: APLIB 
IF CREATE FAILSe DISPLAY SPQOLEOD LISTING (Y Ni: ¥Y 
REPLACE EXISTING FILE (VY Nb: Y 
PROMPT FOR ADOITIONAL CRIOSPF PARAMETERS (Y ND: 
SUBMIT DISPLAY DEVICE FILE CREATION IN SATCH (Y NP: Y 
JOB OESCRIPTION: APWJOBO 
LIBRARY: SLIBL 
J = MEMBER APDSRCHX AND FILE APDSRCHX EXIST. CF1l1 TO REPLACE. 


SDA SAVE DDOS/CREATE DISPLAY DEVICE FILE 


SAVE THE GENERATED ODS SOURCE (Y NI: ¥ 
SOURCE FILE wWHERE DOS IS TO BE SAVED: R APPSRC 
LIBRARY: APLIB 
MEMBER: APODSRCHK 
(BLANK FOR MEMBER LIST OISPLAY) 


CREATE A OISPLAY DEVICE FILE FROM THE 005 Y 
OISPLAY DEVICE FILE: APDSRCHX 
LIBRAQY: APLI9 
IF CREATE FAILS+e DISPLAY SPOQOLED LISTING Y 
REPLACE EXISTING FILE Y 
PROMPT FOR ADDITLONAL CRTDSPF PARAMETERS 


SUBMIT DISPLAY DEVICE FILE CREATION IN BATCH Y 
JOB DESCRIPTION: APWJOBD 
LIBRARY: SLIBL 


J * MBR APDSRCHX SAVEO; BATCH CREATE SUBMITTED. ENTER. 





———> (ENTER) 
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SOA OESIGN RECORO FORMAT MENU 
SELECT ONE OF THE FOLLOWING: 

le FILE DEFINITION 

2» RECORD FORMAT OEFINITION 

3e FIELO O€FINITION 

4&e SUBFILE CONTROL RECORD DEFINITION 

Se SUBFILE RECORD FORMAT DEFINITION 

be SAVE DOS/CREATE DISPLAY DEVICE FILE 


OPTION: 


NEW OR EXISTING DISPLAY RECOKO FORMAT 
(BLANK FOR RECORO FORMAT LIST OISPLAY) RECORD FORMAT: SCHRCO 


ENTER THE SOURCE FILE FOR OOS ODS SOURCE FILE: APPSRC 


LIBRARY LIBRARY: APLIB 
NEW OR EXISTING MEMBER NAME 
(BLANK FOR MEMBER LIST OLSPLAY! MEMBER: APDSRCHX 


ENTER ADOITIONAL RECORD FORMATS TO BE 
DISPLAYED ON THE WORK OISPLAY ADDITIONAL RECORDS: SCHCTL 





——> (CF2) 


SDA OPTION MENU 


SELECT ONE OF THE FOLLOWING: 
le OESIGN DISPLAY KECORD FORMATS 
2- DESIGN A MENU 
3e TEST AN EXISTING OISPLAY RECORD FORMAT 


OPTION? 


AITTHIN SOa: 
PRESS HELP KEY To OISPLAY HEL? TEXT FOR THE CURRENT DISPLAY. 
PRESS CFl KEY TO EXIT ANY GPTION AND ALLOW SAVING THE CHANGES.» 
PRESS CF2 KFY TO BACK UP TO THE PREVIOUS DISPLAY IN A SERIES. 
PRESS ENTER/REC aNv TO ADVANCE TO THE NEXT DISPLAY. 





———> (CF2) 


124 


PROGRAMMER MENU 
Select one of the following: 
1. Design/execute DFU app Capp), , (options) 
2. Design/execute auery app (app), , (options) 
3. Create object object name, type, pam for CMD, (text) 
4. Call program program name 
5. Execute command command 
6. Submit job (job name), (command ) 
Display submitted jobs 
Edit source (srembr), (type), (text) 
Design display format Csrcmbr) 
90. Sign off (#NOLIST *#LIST) 


Types: HSCF, CEL, CL, CLP, CMD, CMNF, DSFF, LF, PF, PRIF, RPG, TXT 


Option: Farm: AFPDSRKCHX Type: Farm 2: 
Command: 


Text: Log requests: *YES 
Src file: AFFSRC Src lib: APLIB Obj Lib: APLIE Jobd: AFWJOBD 
CF3 - Command entry. CF4 - Frompt (3 & 5 only) CFS& - DSPMSG 





Vv (AWAIT JOB-COMPLETE-ALARM) 


———> (CF6) 


MESSAGE QUEUE - wWSO05 Delivery: *NOTIFY Msqy sev 00 
Job APWJOED.AFWTEAMNX.002739 completed normally on 10/16/81 at 16:41:00. 


CFS ~- Remove a message CF? - Display all CF98 - Remove all 
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11. Start a test of your new display file. 


PROGRAMMER MENU 
Select one of the following: 

1. Design/execute DFU app (app), , (options) 

2. Design/execute query app (app), , (options) 

3. Create object object name, type, pgm for CMD, (text) 
4. Call program program name - 

5. Execute command command 

6. Submit job (job name), (command) 

7. Display submitted jobs 

8. Edit source (srcmbr), (type), (text) 
9. Design disptay format (srcmbr ) 
90. Sign off C“#NOLIST *LIST) 


Types: HSCF, CBL, CL, CLP, CMD, CMNF, DSPF, LF, FPF, PRTF, RPG, TXT 


Option: 9 Parm: APDSREHX Type: Farm 2: 
Command: 


Text: Log requests: #YES 
Src, file: AFPSRC Src tib: AFLIE Obj tib AFLIB Jobd: AFPWJOED 
CF3 - Command entry CF4 — Prompt (3 & 5 onty) CF46 ~ DSPMSG 





——> (ENTER) 


SDA OPTION MENU 


SELECT ONE OF THE FOLLOWING: 
le DESIGN DISPLAY RECORD FORMATS 
2e DESIGN A MENU 
3e TEST AN EXISTING OISPLAY RECORD FORMAT 


OPTION: 3 


WITHIN SDA: 
PRESS HELP KEY TO OISPLAY HELP TEXT FOR THE CURRENT DISPLAY. 
PRESS CFl KEY TO EXIT ANY OPTION AND ALLOW SAVING THE CHANGES. 
PRESS CF2 KEY TQ BACK UP TO THE PREVIOUS DISPLAY IN A SERIES. 
PRESS ENTER/REC ADV TO ADVANCE TO THE NEXT DISPLAY. 





——+» (ENTER) 
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SDA RECORD FORMAT TEST 


DISPLAY DEVICE FILE: R APDSRCHX 
LIBRARY: APLIB 


RECORD FORMAT: SCHCTL 
(BLANK FOR RECORD FORMAT LIST DISPLAY) 


ADDITIONAL DISPLAY RECORD FORMATS 
RECORD FORMATS: 





———> (ENTER) 


12. Set the indicators to display both control and subfile records. 
Reduce RRN to a value < 10. 


SDA QUTPUT DATA FOR TEST 

RECORD: SCHCTL ENTER PROGRAM QUTPUT DATA AND INOICATOR SETTINGS: 
FIELD NAME FIELO VALUE FIELD NAME FIELD VALUE 
*IN55 : OQ: =IN7TS 

FINTG SINTT 


RRN 





———> (ENTER) 
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ENTER CHARACTERS FOR SEARCH 


FIELD EXIT KEY TO SEARCH 


CHD KEY i - END OF JOB 
VENDOR NAME 


0000000000000000000000000 
0000000000000000000000000 
0000000000000000000000000 
0000000000000000000000000 
0000000000000000000000000 
0000000000000000000000000 
0000000000000000000000000 
0000000000000000000000060 
0000000000000000000000000 
0000000000000000000000000 


SOA 
RECORO: SCHCTL 


FIELO NAME FIELD VALUE 


*INQ9 : 
CODEL : : 
RAN : Ol: 





VENDOR SEARCH 


SALESPERS 


0000000000000000000000000 
0000000000000000000000000 
0000000000000000000000000 
0000000000000000000000000 
0000000000000000000000000 
0000000000000000000000000 
0000000000000000000000000 
0000000000000000000000000 
0000000000000000000000000 
0000000000000000000000000 


13. Verify rollup key input. 


——> (ROLL UP UNTIL “+’’ GOES OFF) 


INPUT DATA FOR TEST 


FIELD NAME 
o/ *IN3O H 
SFLPAG 


DISPLAY INPUT BUFFER: (Y/N) 


——> (ENTER) 


FIELD VALVE 


NUMBER 








14. Test EOF condition. 


SDA 

RECORD: SCHCTL 
FIELD NAME 
*INS5 

SINT6 

RRN 


———> (ENTER) 


ENTER CHARACTERS FOR SEARCH 


FIELD EXIT KEY FOR SEARCH 
CMD KEY 1 - ENO OF JOB 
VENDOR NAME 
060000000000000000050N000 
0600000000000000000t0990v00 


00000u0000000000060000000 
ocococoo0ungcooooN00NcoGCUN 


oo000u00000G00000C0000CLI 
coooo0co000co0000000000Cc sO 
aoocov000ccoud0000NNHNUNUNO 
0000000000G00000000000000 
000000000G00000G00000G000 
c0900u0000000000000000000 


FIELD VALUE 


OUTPUT DATA FOR TEST 
ENTER PROGRAM OUTPUT DATA AND 
FIELD NAME 
SINTS 1 
FINTT 0 


VENDOR SEARCH 


SALESPERS 


0000000006000000000G600000 
00000u000000000G000000000 
0000000000900000000000000 
00000000000U000C000G00N00 
ococgddvoggddu0000n000000 
00000G0000000000000000000 
00000000000000000G0000000 
060000000G000000000000090 
G0000G0G0000000G000000000 
000000000000000000000C000 


INOICATOR SETTINGS: 
FIELD VALUE 





NUMBER 





——»> (ROLL UP UNTIL ‘‘+’’ GOES OUT) 


Vv (RESET REQUIRED) 
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ENTER CHARACTERS FOR SEARCH 


FIELD EXIT KEY FOR SEARCH 
CMD KEY 1 - ENO OF 08 


VENDOR NAME 


ooo00cd000000000CKN000C000 
0000000000000000060000000 
0000000009000000000000060 
0000000000000000000000000 


oo00c0000000000000000N000 
0000000000000000000000000 
0000000000000000000000000 
000000000000000000000CG000 
0000000000G00000000000000 
00009000000090000G0000000 


——»> (CF 1) 


SDA 
RECORD: SCHCTL 


15. Check CMD key 1 input. 


VENDOR SEARCH 


SALESPERS 


ooo0000000000000000000000 
0000000000000000000000000 
0000000000000000000000000 
00000000000CG 0000000006000 
oo000000000000000000000000 
oo000000000co000000000000 
00000000000G0000000000000 
ovogov000Gog0000000000000 
0u00u000000000000000000000 
ood0000000000000000G00000C0 


INPUT OATA FOR TEST 


FIELO NAME FIELO VALUE FIELO NAME 


= INS? L: 
CODE1 3 
RRN GL: 


*IN30 2 0: 


SFLPAG > 10: 


DISPLAY INPUT BUFFER: (Y/N) 


——»> (ENTER) 


FIELO VALUE 


NUMBER 








(~ 


16. Check code1 data entry. 


SDA QUTPUT DATA FOR TEST 
RECORD: SCHCTL ENTER PROGRAM QUTPUT DATA AND INDICATOR SETTINGS: 
FIELD NAME FIELD VALUE FIELO NAME FIELO VALUE 


oINS5S5 
SINT 
RRN 


———> (ENTER) 


ENTER CHARACTERS FOR SEARCH 


FIELO EXIT KEY FOR SEARCH 
CMD KEY 1 - END OF JOB 
VENOOR NAME 
0000000000000000000000000 
Ooo0d0g00DCNOOO ON OOO NOVNNN 


oo00000 00000000 CO0UV0GOUNNN 
00000c00000G0G00000000000 


oog00Ggod0q000u000000000VN0TCN 
0000000000000000000000000 
000000000000000000000L000 
00009060000000000000000000 
0000000000000000000000000 
000000000000000C000000000 


——+(FIELD EXIT) 


7INT5 
SINTT 


VENDOR SEARCH 


SALESPERS 


0600000000000090000000000 
0000000U000G0G00000000000 
030000000000 0000000000000 
0000000000000000000000000 
ov000vo0ccocu0u00000GN00000 
0v00000000000000000000000 
ooodc00000c00 0000000000000 
0000000000000000000000000 
0000000000000000000000000 
0000000000000060000G00000 


NUMBER 
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SOA INPUT DATA FOR TEST 


RECORD: SCHCTL 

FIELO NAME FIELD VALUE 
2INn99 : Os 

CODEL : SMITH 4 

RRN s O1: 


DISPLAY INPUT BUFFER: (Y/N) 


SOA 
SELECT ONE OF THE FOLLOWING: 


Le OESIGN OISPLAY RECORO FORMATS 


2+ DESIGN A MENU 


FIELO NAME FIELD VALUE 
0 
I 


SIN30 
SFLPAG 


QO: 


OPTION MENU 


30 TEST AN EXISTING GISPLAY RECORO FORMAT 


OPTION: 


WITHIN SOA: 


PRESS HELP KEY TO OISPLAY HELP TEXT FOR THE CURRENT OISPLAY. 
PRESS CFi KEY TO EXIT ANY OPTION AND ALLOW SAVING THE CHANGES. 
PRESS CF2 KEY TO BACK UP TO THE PREVIOUS DISPLAY IN A SERIES. 
PRESS ENTER/REC AOV TO ADVANCE TO THE NEXT DISPLAY. 





PROGRAMMER MENU 
SELECT ONE OF THE FOLLOWING: 
DESIGN/EXECUTE DFU APP {APP}, »e(OPTIONS) 
DESTGN/EXECUTE QUERY APP (APP), s(OPTIONS) 
CREATE OBJECT OBJECT NAMEs TYPE» PGM FOR CMGy (TEXT) 
CALL PROGRAM PROGRA™ NAME 
EXECUTE COMMAND COMMAND 
SUBMIT JOB (JOB NAME). (COMMAND) 
DISPLAY SUBMITTEO JOBS 
EDLT SOURCE (SRCMAR)» (TYPED, (TEXT) 
DESIGN DISPLAY FORMAT (SRCMBR) 
SIGN OFF (SNOLIST @LIST) 


TYPES: BSCFsy CBl.» Chey CLP» CMD» CMNFe DSPFe LFe PFe PRIFe RPGe TXT 


OPTION: PARM: APDSACHX TYPE: DSPF PARM 2: 
CGMMAND: 


TEXT: LOG REQUESTS: SYES 
SRC FILE: aPPSRC SRC LIB: APLIA QBJ LIB: APLISB JOBO0: APWJOBRD 
CF3 - COMMAND ENTRY CF& - PROMPT (3 € 5 ONLY) CF6 - OSPMSG 





Vv IF YOU HAVE TIME, REPEAT LAB STEPS 40 AND 41 TO USE 
THIS DISPLAY FILE VIA YOUR PROGRAM. 


V SDA OPTIONAL LAB EX. 2 COMPLETE 
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SEU Familiarization Exercise for RPG II| Programmers 


Goal: Obtain source printout like the one on the next page. For this 
exercise substitute your assigned team letter for ‘’?’’. 


* Sign on according to initial instructions in your workbook 
* Use CF3 (CMD + 3) to obtain Command Entry screen 
* You have a copy of APR300 in this workbook 


Ref. 
page 


1. Create a new source member with the name TEST? 
EDTSRC APPSRC TEST? *RPG 


2. Copy the entire source member named APR30OO (statements 
1—78) into TEST? (Hint: Use CF5) 


3. Change statement 9 to: 
BTEMP MULT 100.00B 42 


4. Position statement 12 at the top of your display (unpaid tag). 
Move statements 12 and 13 to the end of the program. 


6. Move statement 17 to the beginning of C specs. (Note 12 
and 13 are now missing.) 


7. Scan for PCHMTD and substitute MPURCH. (Check to see 
that statements 3, 4, 15 and 59 are changed.) 


8. Delete statement 20. ({mportant!—if done in error, how 
would you regain the record?) 


9. Add anew calculation. Insert it so that it is the first calc. 
spec. (You may have to choose the appropriate format.) 
C ADD 1 COUNT 30 


10. Roll up 40 statements without using the roil up key. Roll 
back to 1. 


11. Request a prompting line to add a comment (*) after state- 
ment 1 with the message: 
A2004 TEAM? 


12. Roll through your program. 
13. Update your new source member and return to editing. 


14. Change your window view to position 28. Notice the op 
codes. 


15. Exit and print your source member. Compare your print- 
out to that shown on the following pages (note that check 
marks have been added to help you locate changes, etc.). 


*** SEU — EXERCISE (RPG III)COMPLETE *** 
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5714UT1 RO3 MOO 810708 


SOURCE FILE: 


SEQNBR*ees eee l eee eee 2 eee eee 3 eee eee 4 eee 


S100 


SEU SOURCE LISTING 


APPSRCeAPLIB K MEMBER: TESTX 


eee 5 eee eee 6 eee eee 7 eee @eee0e 8 eee 


c ADD 1 COUNT 30 
pace c oul z2-aDD0 c 92 
360 C#  A2004 TEAM? eo) 
400 Cc 02 / SOTO UNPAID (iwseer 
500 c MPURCH “ CABEQO NEXT Eaeegage. 
600 c DCTMTD DIV MPURCHSM ATEMP 44H 
700 C ATEMP MULT 100 A 42 SUBST. ) 
800 c NEXT TAG 
900 c PCHYTD § CABEQO NEXT 
1000 c DCTYTD DIV PCHYTD + BTEMP 44H 
1100 C BTEMP MULT 100.CO B 42 (CHANGED) 
1200 c NEXT TAG . 
1300 c GOTO OUT (2 Moveo) 
1400 c gut sv 
1500 Cli ADD MPURCHe TPM 112 (suasr. ) 
1660 CLL ADD OCTMTD TOM 92 
1700 CLL ADD PCHYTD ~~ TPY 122 
1800 cli ADD DCTYTO  TDY 102 
1900 Cll ADD TPU 112 ) 
2060 CLR TDM BY te CT a v (one DELETED 
2100 CLR MPCTMP = MULT 100 MPC 42 
2200 CLR NEXT2 TAG 
2300 CLR TPY CABEQO NEXT3 
2440 CLR TDY DIv. TPY YPCTMP 44H : 
2560 CLR YPCTHP = MULT 100 YPC 42 
2600 cla NEXT3 TAG 
270C GOPRINT H 202 OF 
2800 0 OR 1P 
2900 ) 78 *VENDOR PURCHASE ANALYSIS®* 
3000 0 H 1 OF 
3100 0 OR iP 
3200 o 73 MONTH-TO-oOaT? 
3300 o 75 ‘ES 
3406 0 112 "YE AR-TO-OATE! 
3509 0 130 *C UR K ENTE 
3600 Q Ho OF 
3700 v oR 1P 
3AG0 0 6 ‘VENDOR? 
39u9 a 76 ‘DISCOUNTS AVG! 
49049 Q 113 "DISCOUNTS = AVG 
4160 0 127 *UNPAID® 
42ul 9 Hz OF 
4300 9 OR iP 
4460 0 & "NUMAER® 
4500 O 25 "VENDOR NAME* 
4460 0 45 "NORMAL TERMS® 
4709 0 58 "PURCHASES! 
4809 0 77 "TAKEN = DIS? 
4960 ) 91 ‘PURCHASES * 
5000 a 114 "TAKEN DIS%* 
5100 0 129 "PURCHASES * 
5200 0 T 2 Ll 
5306 0 VNDNBR 6 
5400 0 VNDNAM B32 
5500 Q VTRMPC4B 37 
5600 0 VTRMDAZB 41 
5700 0 38 °3" 
5800 D wv mpurcHiB 59 (sussr. ) 
5900 ) DCTMTD1B 70 
6000 O A 3B 677 
6100 ) PCHYTDIB 93 
6200 D OCTYTD1B 107 
6300 o 5 3B 114 
6400 0 c 1B 130 
6500 o 46 "DAYS® 
6600 o T 22 LR 
6700 0 37 "FINAL TOTALS-* 
6800 0 TPM ol 59 
6900 0 TPY 1 93 
7000 D TPU 1130 
7100 o tT 1 LR 
7200 0 TOM 1 70 
7300 0 mpc 030—~OT77 
7400 0 TOY 1 107 
7500 0 yvPC 311A 
7600 0 7B °R! 
7700 0 115 *%* 
7800 c UNPAID —- TAG J (2 Mover) 
7900 c ADD MERCH c v 


* ee * 8 ENDO OF SOURCE RRR 


10/29/61 13:17:51 


PAGE 


10/25/81 
10/29/31 
10/29/31 
10/29/a1 
19/29/81 
19/29/31 
10/29/41 
19/29/81 
10/29/81 
10/29/61 
10/29/81 
10/29/31 
10/29/91 
19/29/81 
16/29/83) 
10/29/41 
19/29/31 
19/29/51 
19/27/81 
10/29/81 
10/29/31 
10/29/51 
10/29/51 
10/29/31 
19/29/31 
19/29/31 
10/29/a1 
10/29/31 
10/29/41 
10/29/31 
10/29/31 
19/29/41 
10/29/al 
19/23/41 
19/29/51 
LO/29/o1 
19/29/41 
L*/29/41 
1e/29/b1 
1G/29/41 
10/29/81 
10/29/81 
19/29/31 
10/29/81 
19/29/31 
10/29/31 
10/29/41 
19/29/41 
10/29/31 
10/29/31 
19/29/31 
10/29/31 
10/29/81 
10/29/81 
10/29/81 
10/29/81 
10/29/81 
10/29/81 
10/29/81 
10/29/31 
10/29/81 
10/29/a1 
10/29/81 
10/29/81 
10/29/31 
10/29/81 
10/29/81 
10/29/81 
10/29/81 
10/29/41 
10/29/81 
10/29/81 
10/29/81 
10/29/81 
10/29/d1 
10/29/61 
10/29/41 
19/29/31 
19/29/31 
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SEU Familiarization Exercise for COBOL Programmers 


Goal: To obtain a source listing like the one attached 


** For this exercise substitute your assigned team letter for ‘’?”’ 

** Sign on according to initial instructions in your student workbook 
** Use CF3 (CMD + 3) to obtain Command Entry screen 

** You have a copy of APC300 in appendices of this workbook 


Ref. 
page 


1. Create a new source member with the name TEST? 
EDTSRC APPSRC TEST? *CBL 


2. Copy the entire source member named APC300 (statements 
1—64) into TEST? (Hint: Use CF5) 


3. Change statement 60 to: 
COMPUTE YPC1 = YPCTEMP * 99. 


4. Position statement 55 at the top of your display. 
5. Move statements 55 and 56 to the end of the program. 


6. Copy statement 51 to the beginning of the PROCEDURE 
DIVISION. 


7. Search for ATEMP and substitute TEMPA (check that state- 
ments 31, 45, 46 were changed). 


8. Delete statement 49. If done in error, how would you regain 
the statement? 


9. Add anew statement. Insert it so that it is the first proce- 
dural division statement. (How do you select the appropriate 
format?) ADD 1 TO BB. 


10. Position statement 1 at top of the screen. Roll up 40 state- 
ments without using the roll up key. Roll back to 1. 


11. Request a prompting line to add a comment after statement 
1 with the message: A2004 — TEAM? 


12. Roll through your program. 


13. Update your new source program and return to editing. 
(Ignore syntax error messages.) 


14. Change your window view to position 7. Notice the begin- 
ning of each statement. Change it back to position 1. 


15. Exit SEU. Renumber the member starting at 100 with 
increments of 5 and print a listing. (Compare yours to 
those following. Note: Comments help you find changes, 
etc. ) 


*** SEU FAMILIARIZATION EXERCISE COMPLETE *** 
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5714UT1L RO3 MOO 810708 
SOURCE FILE: 


SEQNBR eee 


10000 
14 df 10500 
11000 
11500 
12969 
12500 
13000 
13500 
14060 
14500 
15000 
15500 
16000 
16500 
17000 
17500 
18000 
18500 
19000 
19500 
20000 
20500 
21000 
21500 
22000 
225u0 
23000 
2350 
24000 
24500 
25000 
7 v 25500 
26000 
26500 
27000 
27500 
28000 
2850 
29900 


,29500 

9 w 20008 
0500 

6 v 31000 
31500 
32006 
32500 
33000 

7 / 33500 


T UV 34000 


SEU SOURCE LISTING 


APPSRCeAPLIB K MEMBER:  TESTXX 
ee 1 eee eee 2 eee eee 3 eee eee 4 eee eee 5 eee ees 6 eee eee T eee eee 8 eee 
IDENTIFICATION DIVISIONe 
* A2004 TEAM? (1nsERTED) 


PROGRAM-IDe APC 300. 
ENVIRONMENT OIVISION. 
CONFIGURATION SECTION’ 
SOURCE-COMPUTERe IBM-S3Be 
QBJECT~COMPUTERe I8M-S3B- 
SPECIAL-NAMES. I-O-FEEDBACK IS Ple 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT APLVANL ASSIGN TO DATA®SASE- 


SELECT PRINTOUT ASSIGN TO FORMATFILE-APC3OPRTe 
DATA DIVISTONe 
FILE SECTION. 
FO APLVANL LABEL RECORD IS STANDARD. 
O01 Ge COPY ODS-ALL~FORMATS OF 

Qe 

FD PRINTOUT LABEL RECORD IS STANDARO. 
Ol PRe COPY DOS-ALL-FORMATS OF APC3OPRT. 
WORKING-STORAGE SECTION. 


REPLACING ==CHECKZ== 3Y 


ol cc PIC 9(199V9(2) COMP-3 VALUE IS 0. 

ol TPM PIC 9(11)V9(2) COMP-3 VALUE IS O02 
Gl TDA PIC 9(19)V912) COMP-3 VALUE IS 0. 
vl Tey) PIC 9(12)V9(2) CUMP-3 VALUE IS Of 
Yl TAY PIC 9C10)V902) CuMP-3 VALUE IS Oe 
Ol TPUl PIe 9ELIIVILZ) COMP~3 VALUE IS O04 
Ol MPCTMP PIC 9(4)1V9(4) COMP-3 VALUE IS QO. 
Ol MPCl PIC 914)V9(2) COMP-3 VALUE IS O-4 
Ol YPCTiAP PIC 914)V9(4) COMP-3 VALUE IS O. 
Ol PIC 914)V912) 


COMP-3 VALUE IS Oc 
COMP~-3 VALUE IS O. 
COMP-3 VALUE IS O« 
COMP-3 VALUE IS Oo 
COMP-3 VALUE IS QO. 


Gl Clenea) prc 914)V914) (SuesTITUTEo) 
Ol AA PIC 9(4)V912) 
O01 BTEMP PIC 9(4)1V914) 
Ul 8B PIC 9(4)V9(2) 
Ol Dle 
US FILLER PIC XI144)~ 
US LNG PIC $99 USAGE COMP-4. 
77 OVFL-LINE PIC S99 USAGE COMP-4 VALUE IS 69. 
PROCEDURE DIVISION. 
ADD 1 TO BB. (inserreo) 
ADD PCHYTD QF D TO TPYl. ADD DCTYTD OF Cf TU TOY. ( corteo) 
BEGINe OPEN INPUT APLVANL OUTPUT PRINTOUT. 
HEADINGSe WRITE PR F3SRMAT “HEADINGL"™ WRITE PR FORMAT “"HEADING2" 
WRITE PR FORMAT “HEADING3" WRITE PR FORMAT "HEADINGS". 
LP. READ APLVANL END GO QUIT. IF D@-FORMAT-NAME = "PAYBLE"™ GU 
UNPe MOVE CORR VENDMAST TO WORKREC-O. IF PCHMTU OF D = 0 
GO NEXT1. COMPUTE = DCTMTD OF O / PCHMTD, 
OF De COMPUTE AA 
NEXTle IF PCHYTO OF D N GO TO OUT. 
COMPUTE BTEMP ROUNDED = DCTYTD OF O / PCHYTD OF 0. 
OUT. ADO PCHMTO OF D TO TPMle ADD OCTMTO OF O TO TOMI. 
ADD PCHYTD OF D0 TO TPY1Le» ADD DCTYTO OF D TO TDYle 
MOVE AA TO Ae MOVE BB TO Be. MOVE CC TO Ce WRITE PR FORMAT 
"WORKREC™. MOVE 0 TO CC. ACCEPT UL FROM Pl FOR PRINTOUT. 
IF LNO > 59 PERFORM HEADINGS. GO LP. 
NEXT2. MOVE TPM1 TO TPM OF-LR1-O. MOVE TPY1 TO TPY OF LR1-O~ 
MOVE TPUL TO TPU OF LR1=De WRITE PR FORMAT "LRI". 
IF TPY1 = 0 GO ENDIT. COMPUTE YPCTMP ROUNDED = TOY1 / TPYl. 
COMPUTE YPC1 = YPCTMP * 99. 
ENDIT. MOVE TDOM1 TO TOM OF LR2-O0. MOVE “PCL TO MPC OF LR2-O. 
MOVE TDYL TO TDY OF LR2-Oe MOVE YPC1 TO YPC OF LR2-0. 
WRITE PR FORMAT "LR2". CLOSE APLVANL PRINTOUT. STOP RUN- 
UNPe AOD MERCH TO CC TPUles GO LP. 
QUIT. IF TPM1 = 0 GO NEXT2. COMPUTE MPCTMP ROUNDED = TOM) / TPML 
COMPUTE MPC1 = MPCTMP © 100. 





(DELETED) 


(CHANGED) 


MeVED ) 
MovED 


uae Se END OF SOURCE # 8 # 4% & 


C 15+ (seq, no. by 55) 


eee 9 eee 


LO/29/81 13:51:33 


PAGE 


10/29/81 


19/29/31 


10/29/81 
19/29/31 


10/29/51 


19/29/81 


10/29/81 


10/29/81 
10/29/81 
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